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Programmer, 

c'est aussi vivre avec son temps 

E conrtois (biefl) une dnquontaine do personnels qui ulilisent quo- 
lidiennement, pour leur travail, des ordinoteurs pfolessionnisls 
©t ignorent 6 peu pres lout de la monifcfe don I \h sont pro 
grammes. On $e contents de cri liquor — et aussi de conseitler 
— celles et ceux charges de les rendre plus intelligent: et conviviaux- 

Tont il est vrai que, dans ce pays (peut-fitre est-ce partout ainsi ?), les cri- 
tiques les plus intolerant* se renconfrerit pormi tes gens les plus ignoronts 
des sujets sur lesquels lis portent des jugements. 

Je connais ^galemcnt des amateurs — possesseurs d'ofdinaleufB person- 
nels — et amends 6 se servlr d'IBM 24 ou 36. Jnd6niobferoent, leur com- 
portement se r£v6le different de cetui des premiers, lis odmettent volon- 
tiers que la machine de leur soci£t£ a des limited., qui soni aussi celles 
des progrommeurs. Leurs exigences — car lis en emettent I — vorit de 
pair avec les possibilites du materiel. Par centre — car il y a un revets 6 la 
meduille — lis ne s'en loissent jamais conter par les personnel chorg^es 
de la programmcrtioa. 

Jouont euK-mdmes avec le Basic, langage que Tort consid&re comma sim- 
plism ©f peu performant, ils ne pr^tenl cependant pos ou GAP des pou- 
voirs illimites, encore qu'il puisse leur arriver d'envier 6 leurs otnis de 
rinformaiique professionnelle, les impressionnants outll* mis b leur 
disposition. 

Demaiflr sans doule, II suffirade penserdun problemepour qu'un terveau 
artrflclel — captam ce ddsir — tente au&sifdt de nous livrer la solution... 
derectement , de microprocesseur b mati&re grist* 

Mac permel de lever le pied pour atteirtdre la premiere mardve d'un esca- 
Her dont an ne voil pas lo fin, mais qui conduiro ou cerveou artificial. 
Bravo I H6los I (ou heureusement I) nous n'en sommes pas 16 ( En atten- 
dant, contentons-nous de programmer — sur nos APPLE Ha ou He, pour 
vlvre avec notre temps, II vout mieux |auer avec le Basic, puis avec 
I'Assembleur, que d'attendre let hypothitiques (mats prabobles) solutions 
promises par ('intelligence artiJkia-IJe. 

El puis, Pun n'emp&che pes I'outre I GUY^HACHETTE. 
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Vous iirez \o disquette de fraitement de foxtc Gri- 
bauille de so pochette et vous Ja plaeez d^licote- 
ment dans le lecfeur 1 de votre Apple He ou lie. 
Gribouille se presente. Tr-fes simplemenl, sans 
chercher b donner des complexes aux program- 
mers on herb* avec de* Acrons extraordinaire*. 
Ce nest pas un reproche. II vous present de ne 
point copier so disquotte, mime si c'ost pour voire 
usage personnel, Cest gentit, mals fame. I J en 
prend d'ailleurs grand sorn, pulsqu'il vous invite 
fina foment & la remplacer par la vfilr e. Vous r*f JA- 
chisse*.,. et vous risquez un support vserge dons le 

slot i f 

L'option Y du menu g£n£rol vous renvois dors au 
menu de disquette dont I'aptian I {comme initiali- 
ser] va pradurre son petit eHet, apres vous avoir 
demands confirmation. Bonne precaution, indis- 
pensable quon-d on s odresse b des dtourdis,.. 
eomme moi. 

Relaur au menu g£r>6ral, par le truchement de la 
louche ESCAPE (sauvent sollkit&e), et selection de 
la premiere option ; «C, Cr£er lire ou modif fieri). 

Super machine a ecriro 

St vous possedez une carte 80 colonnes — ce qui 
est man cot — vous dispose* olors d une machine b 
dcrire heureosemem dote© d'un &el etron de visua- 
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P/us que parfaH, e'esi io societe Berlingot qui 
h pretend. 

Excellent ei performant, e'est ce que j r af 
mohrnSme constats 

GuyHACHETTE. 



Ksolion, e\ d'une memoir* confortabie (ce logiriel 
lonctionne egalement en 40 colonnes). 
Vous allez en regis! rer votre texte oo kilometre, 
sons vaus saucier des coupures de mots, mais en 
ollant ividemment 6 la llgne quand ben vous 
chant*. AKecHonnez-vous les H4eh*t de voire 
Apple ? Si Qui, rassurez-vous : elks jcuent four 
rfile habJtuel, mats ovec quelque chase en plus : 
remonter, descendre, insurer, suppdrner,,. tout est 
ladle, el felativemenf rapid*. 
A ce niveau, le trattemenf de texte Gribouille vous 
presente vatre texte sans aucune mise en page. 
Par contra, les accents eirconflexes et les tr£mas 
sont suivis par un V" en mode inv&r&e. 
L'eHacemenl, facile ovec to touch* «Dal», est 
rapids, meme quand votre 4cran est pratique menl 
pteln t 

La premiere impression est satlsfaisante. Par con- 
tre, n'ayant volonHajrement pas lu le made 
d'emplol de Gribouille, et pasdavontoge visuoli&e 
la disquette de demonsiraiion javaue me poser 
des questions quant aux manoeuvres a execuier 
pour sauver man texte, puis pour le metlre en 
page... et i'^dtter... 

Sauvegard&z de temps en temps 

Co y est r It est souv4, enfln, portiellem*nt. J* I'ai 
Ufr^ ^Premier contact »> e< fl occupe 9 secteurs de 
ma disquette (un peu plus d'un ecran, au stode 
actu*l). Un regret : une souvegarde outomatique 
opr^s lo trappe de 2000 caracteres {par exemple) 
me paraitrait une bonne precaution. Toutes les 
oeuvres ne se rev&lent certes pas lmp^rissable& r 
mais an sail tombien les micro-caupures entament 
le moral des secretaires et autres epistoliers I 
Tlent- ! comme c*lo, rien que pour voir, j r of tap* un 
«Clrl-X», et je me suis retrouve au debut de man 
bablablo. Moi, j'aurois choisi un «Clrf*D».-. mais 
Wade lei ne Hade, la mere de Gribooitfo* doit avoir 
ses raisons, pas vral ? Je me suls dlt que, logiqu*- 
ment, nCtrl-Y>i provoquerolt f'effel contrak*. mass 
je me sues lromp6. Cast plus simple que celo : un 
autre «Cfrl-X» r*nvoio illico b la tin du text*. 
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Nouvetle exploration des possibilites, apporenv 
ment nombreuses de Gribouilh : j'oi vu la mise 
en poge de mon texte, coupure* de mots comprl* 
ses. Extra. El — oh ! surprise ! — ie programme se 
comport© parloitement avec mo corte-buHer de 
K. V;>iblemenl, il ie moque totolement de sa 
presence, Moi pas : le premier jet s'lmprime fandis 
que je tente de r^diger ces lignes. 
Autre surprise agreable 1 les accents circanflexes 
ne perturbent pas la justification. «Evidenl», me 
direz-vous ? Peut-etre... dans les traitemenfs de 
lexte iran^ais. mo is pas forcement dans ceux qui 
sonl seulement tranches. J'oi bien envie d'ossayor 
le soullgoefnent, Pomme ouverie dait bien servir & 
quelque chose,,, Ou Pomme ferm^e..- ou bien le 
point d'lnterrogation.,- 6 rnoins que ce ne soit une 
camblnoison des deux ? Videux, hein ? 
Ctlait bien «?* Pomme ouverte», mais j'aorais pu 
obtenir la meme chose avec un simple «Ctrl-A». 



LES RONS POINTS 

• Coupure des mots en itn de Iigne {canfor- 
m6menl am regies typographiqu&E). 

• Conception cent pour cent fran?aiM. 

• Documentation complete et clasre. 

• Facturation *aca]e. 

• Calcul Lnttgrb. 

• Edition de grapbjgue possible. 

• Possibilifce d'utkllaer le* text** <4crll3 avec 
Gribouiih dam des programmes 
personnels, 

• Substitution instantanee de caractArcs 
{bein devient bien) ©t autre* petitea facili- 
ties da raeme ordie. 

" Impreoaton sans problems avec les impri- 
mantee Apple, 

DEUX GRIEFS 

• La sauvegarde des textes est laissee & I 'in J' 
native de l'uiilisateur, ce qui oomporte des 
dangers, 

• Ecraaement ou effacenienl relailveinent 
rapide {en mitnoirc Vive) at oe rafime utiil- 
aateur ae rAvAle un peu trop nerve us. 

^ _ 

OUY-HACHftTC 



Bon menage avec I'imprimante 

En lout cos, je sois mointenont comment incorporer 
des codes pour mon imprimonte : «Ctrl-F + CODE 
+ FLEXEn. Je vols done oiler sooligner «sauligne- 
ment», un peu plus hour A tout 6 I'heure I 
G,K, pour lo soullgnement. mais Gribouiih a 
pr£vu un processus mains complique que ma com- 
mande d'imprimonle : «OH-WSL» et «ClrUWN5». 
CmI parlant et rapldernent tape. De plus, c'esl 
parfaitement assimil£ por (e programme de visuali- 
sation,*, qui presente lo partie soulignee en mode 
Inverse, 

II y a le glossaire 

II eonvlent de remarquer qu'une demarche cansis- 
1on1 i decouvrir empiriquernent te Sanction nemenl 
de Grihooitie n est probablement pas la plus judr- 
cieuse. D'accord. j'aurais du parcourir le monuel 
ovont de m'aventurer dons les meandres d'un logi* 
ciet qui, en I'absence de touches de function sur 
I'Apple, n'a pes d'oulres issues que 1'emploi des 
different* CTRL, 

Je dote pourianl constater, el non sons pioi&lr, que 
Toventure s'es! plutflt bien possee. jusqu'i present 
en tout cas. Grace aux diven menus, il est facile 
d'acceder a laufes les fonctions et if n'est pos indis- 
pensable d r $ire dot^ d une memoire d elephant 
pour utiliser GribauiHe d'une mani4re satisfai- 
sonte. 

Les codes ennuyeux peuvent par exemple prendre 
place dans un glo&soire ou les rep&cher n'exige 
plus que lo command* «Ctrl-G» suivie d'un code 
facile fi retenlr, comme uGn pour «gra5», «M» pour 
amajgrew, etc. 

Et maintenantt a vous de /over / 

Mais je ne vats pas vous d£voiler , un d un, tous les 
trues qui font de Gribovliie un bon traifement de 
texte. Vous trouverei d'ollleurs, dans ces pages, 
un tableau evoquanl ses points iorts. 
Disqns que rien n'est surfait. Fa<ilH6 d'emploi, 
rapidite, clorte de la documentation, service 
apres-vente reellemenl d^cid^ 6 rester h la dispo- 
sition des uttlisateurs (per telephone, par le r£seou 
Calvados, et par I'mfefm^diaire d'un bulFetin) : de 
bonnes roisons pour I'essayer... el peut-§tre — s'll 
correspond b vos crit&res personnels — pour 
ladopier, 
Cocorico ! 

Guy-Hachette 
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Basic et langage machine 



DOS 3.3 
PRODOS 



Vos menus 
a la -~^» »-*<=>. t 



^fflip ES menus courts, of tidies instantan^rnertl,... et modif tables 6 volonte : voila ce 
que vous propose ce programme I Notes qu'il comport© une parti© DEMO dont 
i/o us. n'aurez vraiment rien h faire par la suite (6 moins que ce n© sort pour le 
£ simple plaisir de promener votre «Menu-du- jour-demo» sgr voire ecran ' ) . 

La routine en langoge mochine vous est fournie en deux parties ; 

— Programme proprement dit, indispensable, puisque c'est lui qui affiche le menu {$2000 a 
$2058} ; 

— Texte (ASCII), qui commence 6 I'adresse $205C r a la suite du programme, el dont la lon- 
gueur dependra du nombre de lignes constituent votre menu personnel, et aussi de leur 
longueur. 

La routine finale, sauvee sous le nom de VMENU. regroupera programme et texte. 



ES = HTABotlglne 
VT = VTAB Drigine 



les lignes 30 6 90 peuveni 
dtr« vjppnmsn dans I* 
programme dvfinitH. A vous 
do d*Cidof I 



10 TEXT : PRINT CHR* 

15 ES = B:VT ■ 10s REM 



(21 ) : HOME 
VTAB & KTAB 



DE BASE DAMS "MENU 



20 
25 

30 



35 



FOR 1 = 1 TO 10tTR* = TR-* 
T* = "BASE MODIFIABLE D'UN 



MENU" t 



- : NEXT 
HTAB B; 



ir,VE*.sb 



40 

45 

50 
55 



BOSUB 155; NORMAL : PRINT 
PRINT :T* = *P0UR FACI LITER L 'ADAPTATION DU PR0GRA 
MMELA PART IE <ASCII> EST MEMORISES A PART, MAIS 1L6 

VA Y AVOIR REOROUPEMENT DES QUEVOTRE MENU DEFINIT1 
F SERA MIS AU POINT." s G0SUB 155 
PRINT j PRINT iT* *= "ATTENTION! ■ t 1WERSE i G0SUB 
I55t NORMAL :T* = " CHA0UE LI ONE 0U MENU DOIT SE TE 
RMINER PAR UN * «AA) ET LA DERNIERE LIGNE PAR £ ( 
*A3> , MAIS LE PROGRAMME SE CHARGE DE TOUT. " l GDSUB 
155: PRINT t PRINT 

INVERSE 3 PRINT * POKE B23y,X"ja NORMAL i PRINT * p 
our raodifisr VTAB 0RIG1NE" 

: PRINT t INVERSE : PRINT 'POKE 8277 1 Y"p NORMAL : 
PRINT ' pour modifier HTAB QRIGINE* 
PRINT i PRINT TR* 

PRINT s PRINT CHR* <4)"BL0AD MENUASC" s PRINT CHR 
* (4>"BL0AD MENU" 
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60 
65 
70 



90 
95 
100 
JOS 

no 

115 
120 

125 



GOSUB 140 
CALL 8226 
GOSUB 145: HOME 
75 X - X + li ON X GOTO 80, BO ,05,90 
80 GOTO 120 

95 A = B:B - 10: GOTO 125 
X * 1: GOTO 120 
I 

REM »t«**«*#*«««**ti*«**#tff*ft**ftt« 
REM SOUS -PROGRAMMES 

REM •i***************************** 

I 

A = 2 + INT ( RND 
* 13) 

POKE 8239 ,A: POKE 
INVERSE i PRINT A 
t INVERSE J PRINT 
VTA8 22s HTAB 7* 




p |*Bf| A JOV* 
D ^OLtvClLHtumOUtl 
Q r tHWFffc ■AMClUai 
Q lim 9 hlCMibh rl HA 




<1) # 8)lB = 2 ♦ INT ( RND CI) 



130 



I 3S 



£40 



145 



150 
155 



160 
165 
170 
175 
1B0 
185 

190 



195 
200 
205 

210 
215 



220 



8277,Bt PRINT *-> 
J NORMAL t PRINT 
B: NORMAL 
PRINT "TQUCHE <ESG> POUR TERMINER 



POKE 8239," | j 
! POKE 8277, 



VTAB 12: HTAB It PRINT "SGOT0 60*;; FOR 1 - 1 TO 7 
s HTAB I * It FLASH : PRINT MID* ("GOTO 60", 1,1) 51 
NORMAL 1 GOSUB H5i CALL - 1008: PRINT MID* <"G0 
TO 60" , I ,1 > | : NEXT : GOTO 65 

VTAB 22 1 HTAB 5t PRINT " ENFQNCEZ N'lMPORTE QUELLE 
TOUCHE" 

CALL - 198: POKE - 16368,0: WAIT - 16384,126,12 
7; POKE - !6368,0tR = PEEK t - 16384): IF R = 27 
THEN !85 
RETURN 

FOR J a I TO LEN <T*> a PRINT MID* <T*,J t l)st FOR 

1 = 1 TO 3:BUZ2 = PEEK C 49200): NEXT : NEXT : RET 
URN 



REM 
REM 
REM 



•#* VOTRE MENU PERSONNEL #»* 



HOME :T* - ■ FAITES VOTRE MENU PERSONNEL 'i 1NVERS 
E : HTAB 7 J GOSUB 155: NORMAL : PRINT 

PRINT iT* ■ "VOUS AVEZ DROIT A 1 : GOSUB 155: INVER 
SE I PRINT 8|i NORMAL :T* ■ " LI ONES MAXIMUM," : SOS 
UB 155 

PRINT I PRINT TR* 
POKE 34,6:LIGNE = 0:DE = B2B3: 
VTAB 22: HTAB 5; PRINT V 
NES* 
LI - LI ♦ 1 
VTAB 6 + LI : INVERSE i 



HOME 

POUR ARRETER AVANT 8 LI 6 



PRINT LI?i NORMAL 1 PRINT " 
.............. 1 1 IF LI4CLI) < > 

HTAB 2: PRINT LEFT* <Llt<L!>, LEN CLUCLI 



THEN 

)) - l)f 

HTAB 3; INPUT " 3 Ll*i IF LI* - 
"' THEN VTAB 6 ♦ LI: HTAB 2: 



*" AND LI*<LI) < > 
PRINT LEFT* (Ll*(LI 

(Sullm pO0« 9,1 



^ CALL 8226 correspond a. 

I'odresse $2022 du pro- 
gramme en langoge ma- 
chine 



- HTAB er VTAB gleertoi 
~ res, pour ia partlo D#m« 
du programme. 



AHente d un cat oclAre. 
CALL - 198 = BfEP 



BUZZ = PEEK (49200) 
' *me1 un brull. 



. La nomhre do Hgnes 
™ pourraii olro augments 
•i I'ort no *autoil pos un* 
ligne »ur deux. 

, Of s 1283 correspond a 
I'odresse *205C — 1. 
depar) de la partJe teirte du 
programme. 
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5i vpy* n'gv«t pos 

confenfeZ'Vaus 
de taper MENU, e • 
MENUASC. 

page 53, 



2000: 


A2 


00 








311 








r u 


Pft 

r u 


2007: 


FB 






2008: 


EO 










r o 




200C: 








2D0D i 




20 

ft* M 




2Q0Fi 


20 


Fn 


FR 

I ID 




.-. 

n t . 


27 




2014: 


B6 

WW 


2A 




201 6 i 


A? 


20 






20 


F0 


FB 


201B] 


AS 


25 




Z01D3 


C* 


U 




201F: 


DO 


EC 




2021: 


AO 






2022i 


20 


38 


FC 


2023 S 


20 


00 


20 


2028 1 


20 


0D 


20 


20 2Bi 


20 


00 


20 


202£s 


A? 


OS 




2030: 


B5 


25 




20325 


20 


54 


20 


2035: 


A2 


FF 




2037: 


E8 






2036: 


8D 


5C 


20 


2038: 


C9 


AA 




2D 3D : 


DO 


OA 




203Fi 


E4 


25 




2041 : 


Ed 


25 




2043i 


20 


54 


20 


2046t 


4C 


37 


20 


2049: 


CP A3 







1 

2 
3 

4 

5 
6 
7 
B 
9 
10 

u 

12 
13 
14 
15 
16 
17 
18 

i? 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

3 3 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 



• » 

EXEMPLE DE MENU 
EN LAN GAGE MACHINE 

• • 

• Guy Hschette - Ftvritr 85 ■ 

$2000 



ASSEMBLAGE 
PAR ProCODE 



* 

ORG 

LI ONE 

EXTREM 

HOME 

AFF1D 

VTAB 

ASCI 

* 

B0UCLE1 



B0UCLE2 



TEXT 



CTRLF1N 



ORG 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

LDX 
LDA 
JSR 
I NX 
CPX 
RNF 

RTS 

LDA 
JSR 
LDX 
STX 
LDA 
JSR 
LDA 
CMP 
BNE 
RTS 

JSR 
JSR 
JSR 
JSR 

LDA 
STA 
JSR 
LDX 
I NX 
LDA 
CMP 

l.ni: 

INC 
INC 
JSR 
JMP 
CMP 



$2000 
ORG 

ORG+*QD 

*FC58 

*FBF0 

*FC22 

DRG-tf5C 

£*00 
£*20 
AFF1C 

£»28 
BGUCLE1 



£*20 

AFFIC 

£»27 

§24 

£*20 

AFFIC 

♦25 

t*l& 

B0UCLE2 



HOME 
LIGNE 
EXTREM 
LIGNE 

£108 

f25 

INITH 

£*ff 

ASCl,X 

CTRLFIN 

♦25 

*25 

INITH 

TEXT 

f*A3 



{11 &uHira de modifier ORG*.. 
jTr«# de- la tigne coup 1 fete 
iSeuUriffit 1*4 extr^ral t»*5 

jA<4tchage + emplacement cur**ur 
jA la ligne sp*c>-fi$e dans CU»25 



preparation de 
fE Space en mode 



la bouele 



; Longueur de 1 a 1 ignt 



{Toujour* 1 'espac* 

]Unc position avant fin di Hgne 
sCH: posit, hor. du eurseur fix#e 
{Chargernent de 1 'espace 

jCU; position y*rt* du curseur 
;En sflfm»&-ftD(rs i la llgnt 22 ? 
;Si non on recommence 
;LE CADRE EST TERMING 

; Ef -f icemen i 



|Et Oft passe au text.. 



fVtab d#part 
tEcr p te dans 



;Pour tfiHnarrer a ziro 

;Ltcturt lextt menu 
;Est-ct un a*t*r.*qos ? 
jSI non «gal 
;D#ux 1 ignes. . . 
; • ■ .plus bas 

;R*parttr dt la bonne position 



iSI c est un £, FIN 
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2C4BJ FO 06 


1 1" 




L l U 


TERnlNt 


*#*#*# MENU - ****** 


204D: 20 FO Ft: 


56 




1 E f 1 


Apr t 

Rr r J C 




2050 1 4l 37 20 


57 




JrtP 


TEXT 




2053: 60 


K ft 


ItKFl JNfc. 


K I a 








■ c 

5? 










2054 t A? OA 


60 


IN1TH 


LDA 




iHtab pour toutes Us J 1 gnes 


2056 1 05 24 


6t 




STA 




{Ecr i tt dans CH 


205Bs 20 22 FC 


62 




J5R 


'■/TAB 




205B: 40 


63 




RTS 








64 


ASCI 


DSK 


HEXMEN 






63 










Tftblt deft syrnbo 


ts 


ordre alp 


habet 


que 





-AFFIC SFBF0 

-CTRLF1N...*2U4V 

-LI ONE *2Q0G 

-VTAB *FC22 



-EXTREM. . . .*2QQD 
-ORG. . . . . . ,*2000 



-8DUCLE! . . .»2002 

-HOME *FC5B 

-TERM1N£...#2053 



-B0UCLE2.. .*200D 

-1NJTH f205<J 

-TEXT... , ..*203? 



table des synboles ordre ngmerique 



-ORG .*2000 

-BGUCLE2. . .*200D 
-IN1TH. ... .*2054 
-HOME *FC58 



-LI ONE *2O0O 

-TEXT $2037 

-ASCI *205C 



-B0UCLE1 ...t2002 
-CTRLFIN.. .»204? 
-AFFIC. . . . .tFBFQ 



-EXTREM, . . ,*2QQD 
-TERMINE . , ,«2053 
-VTAB *FC22 



PARTI E «TEXT» DE VOTRE MENU 

So longueur variera auivant I© nombre de coract&res, mate !e programme se charge de le 
mAmariMK, et vous n aver done poi 6 en fenir compte. 

Natureilemenl, rien ne vous intordil d-» modifier les mentions «Menu du jour» ei ufteponse : », 
Revoyei pour cela (es lignes 310 et 330 du programme basic, 

N'oubltaz pas qu'un retour hgne s mdique par un ast£risque et la fin de la panic «rextn par one 
£ (ou un d&se, si vchjs utilise* le clavier QWERTY). 



305C1 


AC AO 
AO 


AO 


2040: 


0D 05 


0E 




5* 20 


04 




15 20 


OA 




OF t5 


IS 




AA 




204D: 


M 




20iEt 


AO DO 


02 




CF C? 


D2 




CI CD 


CD 




C5 AO 


CE 




05 CD 


C5 




D2 CF 


AD 




01 AA 






32 




2*183 1 


AO DO 


D2 




CF C7 


D? 




CJ CD 


CD 




C5 AO 


C* 




DS CD 


cn 




&2 CF 


Afl 




B2 rV» 





8 ASC 



9 rw 

ID ABC 
11 1W 



•MENU DU JOUR 6 



B i " 



12 ASC 1 PRCERtftlE NlttERO I *" 
19 ]W "2* 



3 4 ASC 



PRCBIWWE NWERO 2-" 



2097 r 33 

I099t AO DO D2 
CF C7 02 
CI CD CD 
C5 M CE 
02 CD C3 

02 CF AO 
83 Ah 

2 CMC 2 34 

2MOi AO DO D2 
CF C7 D2 
CI CD CD 
C5 AO CE 
D5 CD C5 

03 CF AO 
6* AA 

20C1I AO AO AO 
AD D2 C5 
W) CF CE 
03 a AO 

en ao 

2UCFi 20 
20DUS Afi A3 



15 iW '3" 



U ASC 
17 1W 



■4" 



te asc * PRCffiiwriE numerd 



19 ASC 

2D :w 

21 ASC 



GUY HACHETTE 



SAISIE 



Nombre maximum de 
lign*» i 8. mei* vou* **op- 
psraz la sai»ie en tapant 
i/n au debui de lo ligne 
que voos ne desirez pas 
utilizer. 

tenez oucun compte 
des asterisques ou de la 
livre pendant ki solsle : la 
programme l«. rajoute. 



DE est le numero de la ^ 
case-mernolre dans la- 
q-j>il.t- vcui Id 



asl on un soul ^ 

bfoc. Rien ne wous In- 
ferdlt de le rebapfJser Toto 



MENUS A LA CARTfc f&»-i» ,.<* ta ^ - 

), LEN CLI*(L1)> - lit GOTO 240 
225 IF LI* = V WD LI > 1 THEN VTAB 6 + LI : HTAB li 

CALL - 958; LI = L] - Is GOTO 250 
230 L = LEN <LI*)i IF L ) 30 OR L < 1 THEN 215 



235 
240 
245 



L1*<L1> = 



+ Ll» + 



LM: GOTO 250 



IF C < > THEN C - OtLI 
IF LI < 8 THEN 210 

UTAB 22: MTAB It PRINT •<!> LA SUITE <2> CQRRIGER 
<3) ANNULER" i GOSUB 145: PRINT : IF ft < 49 OR R > 5 
1 THEN 250 
235 CM R - 48 GOTO 295,260,200 

260 VTAB 22: HTAB 1: CALL - 868: PRINT *NUMER0 DE LIG 
NE A CQRRIGER ? "|i GET Cti PRINT C*:C = ASC <C*> 
- 48s IF C < 1 OR C > LI THEN 260 
265 LM = Llttf = C: PRINT "i GOTO 215 



270 
275 
280 

282 

790 



REM •#«••*•*•*•*••••*#»•«#••**#•«• 

REM *«* ECRITURE EN MEMO IRE «»• 
REM «•***■••■«•»■■»»■•»■••* ••■**»■ 



: 



295 LM = : FOR 1 = 1 TO LI : IF LEN <LI*(I>) > LM THEN 

LM = len ai*a>> 

300 NEXT 

305 ESPACE = (41 - LM) / 2:T* = ' " i FOR 1 = ES TO I3:T* 

■ T* + CHR* (32)1 NEXT : GOSUB 375 
310 FOR I = 1 TO 12:DE = DE ♦ 1 :AS = ASC ( MID* < "MEN 
U DU JOUR" ,!,!>> j IF AS 32 THEN POKE DE.ASs GOTO 
320 

315 POKE DE,AS - 64 

320 NEXT I DE ■ £>E + 1 1 POKE DE ,170 

325 FOR 1 = J TO LI :DE = DE ♦ I: POKE DE, ASC ( 5TR* ( 
I)): FOR J ■ I TO LEN <LI*<I)>iDE = DE + It POKE D 
E, ASC < MID* CL1*CD,J,D> + 128 j NEXT s NEXT 

330 Tt - T* + 'REPDNSE i *t GOSUB 375 :DE ■ DE + 1: POKE 
DE,32tTt - '»£'» GOSUB 375 

335 VT - 10 - Lit POKE 8239, VTt POKE 8277, ESi TEXT 

340 : 

345 REM •****«**«*«»••#*■«*•*»•«*«••*• 
350 REM ■•* V0TRE MENU EST SAINE HM 
355 REM «t#»*«##i*»««»»««*»«*«»#*#i*«f 
360 : 

365 UTAB 22 l HTAB It CALL - 938 i PRINT "BSAVE VMENU,A 
8192,L"DE - B191: VTAB 22s PRINT CHR* (4)" BSAVE VM 
ENU ,AB1 92 ,L" DE - 8193! VTA 8 21 t CALL - 958 

370 GOSUB 140: CALL B226: GOSUB 145; HOME : GOTO 380 

375 FOR I = 1 TO LEN <T*)tDE = DE + It POKE DE, ASC < 
MID* CT* t I ,1 >) ♦ 128t NEXT j RETURN 

380 UTAB 22s HTAB 2: PRINT "<1> FIN <2> MODIFIER <3> R 
EFAIRE " } : BET C*i IF C* ■ *3* THEN CLEAR : GOTO 
10 

385 IF C* = "2' THEN 185 

390 : fsufi- fj0* >oi 



TREMPUN MICRO 



mimiiiw 



395 
400 
405 
410 
415 
420 



REM 
REM 

REM 



«***«**#*****«•«***•••«***•*• 

VOIRE PROGRAMS BASIC • 



««»«»*•••*•**•«»!»«*•*«***• 



HOME :G4 * CHR* <34> 
T* = ' VQTRE PROGRAMME 
t GOSUB 155 i NORMAL i 
425 T* = "II ressembl era * 

NT I PRINT " 

PRINT 

430 T* = "fJO TEXT! PRINT CMR*<21> 
CHR*(4>"s Q0SUB 155: PRINT 



EM BASIC "S INUE&SE 
PRINT ! PRINT 
ces 1 ignes;" : GOSUB 

_ M 



t HTAB 7 

155s PR1 
! PRINT s 





> O* = CHR*<13) 



435 

440 
445 

450 

455 
460 

465 

470 
475 



T« - -620 PRINT t»" 4 G* + ' BLQAD MENU" + G*i GOSUB 

155; PRINT 
T« = -S30 CALL 8226": GOSUB 
T* ■ "540 CALL - 19B : POKE 

A364.12e.127s POKE - 1 6369 , 
T* = *550 R ■ PEEK <-16384>-4B s IF R < 1 OR R 
ITEMS THEN 424": GOSUB 155! PRINT 



155s PRINT 

- 16368,0 i WAIT - 1 
0" i GOSUB 155s PRINT 



■RUN 



Tt = "Sill ON R GOTO 70,80, 
T* - "S?0 PRINT DV + Bf 4 

GOSUB 155 i PRINT 
Tt = "§80 PRINT D** + G» 4 

GOSUB 155 s PRINT 
T4 » "S?0 nC.'t SOSUB 155s PRINT 

PRINT s PRINT 'ATTENTION! PROGRAMME 

PRINT "MENU* : : NORMAL s PRINT " NON 



ME 



I GOSUB 155 i PRINT 
PROGRAMME I" * &*! 



Si vou* n'gtlllsez pos MGR. 
«t ti ogcun tie* programme* 
de voir? disquelt* no 
depots w 6142 octets, woui 
pourrei rappeler voire 
menu 6 n" import* qv*l 
moment par un CALL 82 Ufc . 
N'oubhvx pas de poiii«on- 
ner voire ainww 6 la f'n du 
mo1 nR*Spon»a .»,.. e» 
d'emeltre un BEEP par un 
CALL — 



"RUN PROGRAMME 2" ♦ G*s 



PRINT 
"ji INVERSE t 

RELOGEABLE 

1 1 GOSUB 145 s HQ 



CE PROGRAMME FONCtlONNE 
SUR APPLE Ih vt 
SUR APPLE lie 



A vous d'ecrire le petit programme qui va decrypter 

ce charabia (finalement, ga fonctionnera parfaitement) ! 



ib 

29 
39 
48 
58 
68 
78 

89 
98 
188 

lie 

128 
130 



148 

156 
168 



TAXT ■ HErW 

p rum T-MEILAZ-VE1S DAVUNAR IN NEMBRA CHE US U PORL' ERDUNQTAI R V 

V TO B4sH TO BI:UNPIT"E1U EI NEN ? " J Rt 
UFR* = "NEN" ERR* ■ "N"TKAN i 69 
UFR* < > *EIU" ON DR* < > *E"THAN38 
N - I + UNT< RND < 1 ) * 188) 

P RUN TsP RUN T"CA NEMBRA AST CEMPRUS ANTRA ";:UNVARSA:P RUN Tl ; sNER 
MOLiP RUN T" AT » ; sUNUARSAsP RUN T188 sNERMOL 

V TO Bl8sH TO Bit COLL - 868iUNPIT"YETRA NEMBRA -> 'sN* 
X = M0L(N») sUFX = 8THAN8B 

UFX = NTHANRt = 1 UE1S OWZ GOGNA I'i SET 
r* = ■ PARD 1 * TREP PATUT^sUFX > NT HAN R* = 
C ■ C ♦ 1 

V TO B13:H TO BlrCOLL - 86B*P RUN TR*l" 

RUN TCsNERMOL 
UFX < > NT HAN 8 8 

P RUN TsP RUN TsP RUN T"PRASSAZ 1NA TEICHA SUP 
P RUN TiP RUN T'DEMMOGA, NEIS NE1S SARUENS BUAN 



El 28 
'PARD I 



TREP GROND 1 



- ASSOU N I MARE "jsUNWARSAiP 



:G AT Rf : GET £18 
OMISAS!" 



GUY-HACHETTE 



to 



BASIC ET LANCAGE 
MACHINF 



DOS 3.3 (Apple lie -Ik) 



Double iistage 
en 80 colonnes 



L16 TAQE DOU BL E EN <?Q C .U.t-i3MtdES. 



S*B0- 


A¥ 10 


UDA 


S*ft0 


«7F- 


40 






fi#8 


«02* 


95 to 


BTA 


*3A 


L'HJh 


A9 90 






a#B«- 


rtV H0 


:CA 


£IB0 


9832- 


aa 24 




STA 






05 33 


fit* 


OB 


B0 3J- 


A5 JB 




,w 


til 


:;«••> n 


20 &2 Pa 


J4« 




t)B3d 


■S 23 




STA 


• W 


aeeB- 


At 12 


I.QA 


E»03 


WT35- 


20 CI 


PB 


Jfifl 


WBCl 


ae*fc- 


20 93 FE 


JSfi 




W3B- 


A3 20 




\» 


0?H 




A3 fld 


LtW 


w 


&0OO* 


W 0* 




STA 




681?- 


;= 43 ' b 


JSR 






A3 W 




LDA 




B#l5- 


42 27 


t&X 


E12? 




33 17 




5TA 


•17 


HS7- 


e« 3i 


STX 


♦21 


8043- 


AO «* 




LDA 




a»i*- 


3d 20 


mt 


•71 


M«S- 


35 *B 




s?a 


*0» 


?1 13- 


A2 00 




f*B8 


flB-T- 


A¥ f B 




LCA 


f*B3 


HU- 


tt " 


tTX 


*25 


B04V- 


« l» 




STA 


«0f 


BlfF- 


A3 07 


(to 


1*7 


UM 


AB II 




L0T 


t*« 


9031- 


2* *3 IM= 


JSB 




B04O-- 


00 35 


C0 


STA 


tt*33 


#024- 


M 0* 


LOtt 


r*ef 


M3B- 


Bt U 




LDA 




BB2£- 


*6 21 


STX 


020 




38 




HC 






A? *F 


LfiX 


IMF 


b«2- 


19 B0 




sac 


£141 


='3;'.-- 


9* 21 


STX 


471 




7| 04 




STA 


i||ID t Y 


B*2C- 


10 EA B3 


J-SI» 


•836/. 


W37- 


£4 h 




INC 





Avec ce programme, vous pourrez disassembler et lister 42 lignes en langage 
machine, puis les imprimer.,, sens un titre eventual (qui n'opparaltra pas sur voire 
ecran), Le programme en basic est simple, et celui en assembieur ne I'est pas mains. 



A! ATTENTION I Celt* ^ 
Isgne (teit imperative- 
mQnl comporler 80 espo- 
cbi el *tr* la premiere du 
programme. 



Vout utlhurez irvdlHe- ^ 
rwnmenf d*s voleuri 
decimoles au hexa- 
dd-cironles 



IS At 



26 

38 
40 
58 

<S8 

?e 

98 

iee 

118 
128 

130 
148 

150 

lie 

170 

180 
199 

280 

210 
228 



PRINT CHR* (4)"PR£3"i PRINT : HOME s PRINT CHR* < 
4)"BLQAD L 1 ST 30 .LMC ,6*6808 " 
AO = 32748 tAO* = "9800" iHD = 3291 A 
HI Mflrt: 32747 

PRINT CHR* (17): HOME t GOSUB 438 



REM •»»««»M*#*KK»**«4*«»*+«*«**«#» 

REM « PARAMETPES t» 

REM «•*•**#»••%•«#••*****#•«»••■•• 

■ 

PRINT CHR* (17)i HOME 

MTA9 10t HTAB Is PRINT "<1> ADRESSE DECIMAU <2> HE 
XA -> " |! GET G*t IF G* = '1 * THEN 170 
IF G* < > *2" THEN 120 

"JTAB 12 B HTAB li PRINT "ADRESSE HEXA -> *0800"|J HT 

AB IB j INPUT '";A0* 

IF LEN (AO*) < ) 4 THEN 148 

GOTO !90 

VTA8 12: HTAB li INPUT 'ADRESSE DEC 1 MALE -> » 5 AD*t 
IF AD* » THEN 120 
AO = VAL (ADS) : IF AD > 65088 THEN 170 
VTAB 14t HTAB Is INPUT "NOMBRE DE LIGNES -> *jNL*i 
IF NL* - f* THEN 140 
NL = UAL. <NL*>; POKE 6, INT <NL / 2)i POKE 7.NL - 
INT (NL / 2) 

VTAB U: HTAB 1? INPUT "TITRE EV.'jTl* 



ii 



IREMPUN MICRO 



238 
246 
25G 



REM 



51 ADRESSE OECl^LE *• 



IF GS = *i" THEN POKE 58, AD - INT <AD / 256.1 * 25 
6: PDKE 59, INT (AD / 256)s CALL AO * 8s GOTO 368 



27B 
281 
?n 

388 

318 
J29 
338 
348 
35H 

■ Ml 



378 
388 

3?e 



REM 



SI ADRESSE HEXADECIMALE ** 



B* ■ AO* t ":A? " * RIGHT* '.AD4.2) * 1 85 3A A9 ■ 4 
LEFT* CAD* ,2} 4 - 85 3B ■ ♦ AO* ♦ "G D823G" 
FOR 1 * 1 TO LGN <!B*>i POKE 511 4 I , ASC < MID* <0 
* ( J,1>) 4 128: NEXT : POKE 72,8; CALL - 144 



REM 
REM 
REM 



»« LE MOMENT DU CHOIX •« 
*«*«*#«*****« **«*«*t***+»<*4*« 



418 

420 
438 

448 
450 

468 
478 

498 

518 
528 
538 

548 

558 

560 
578 
560 
590 

688 
619 
628 
638 



PRINT M 's MTA8 23 i HTA8 li CALL - 868 t PRINT " < 1 > 
IMPR1MER <2> REFAIRE <3> MENU DE DISQUETTE <4> FIN 
"St GET R*sR = ASC <R*> - 48i IF R < 1 OR R > 4 THE 
N 360 

ON R GOTO 468,118,688,636 

REM ##*#«*##*#«*#***#•»«## »•*«««•«* 
REM EDITION DES L1STES ♦* 

REM tfHm«**ti«tiittfit«ttt*4iit 

VTAB 22a HTAB Is INPUT "SLOT DE L' JMPRJMflNTE ? "?IM 
*t IF !«•= - THEN IM* - " 1 ■ 
IMt = CHR* (4) 4 "PR£" « 3M$ 

PRINT IM*: PRINT CHR* (27) 'E": PRINT CHR* <27) M LB 

ifl" i print chr* <4)"PR£e** call mil return 

PRINT " B s VTA8 23; HTAB is CALL - 868; CALL 1682 

1 

REM M SI VOIRE INTERFACE FAIT #* 

REM #♦ DE LA COP IE D'ECHWI SUR tt 
REM ** 88 C0LGNNE5 i GOTO 59fl «* 

i 

PRINT JM*s PRINT CHR* (?) n 8iN"s POKE 24 ,0 

IF TI* < > THEN PRINT CHR* <27)*X B ; CHR* (14) 

jTI*; CHR* (27)°Y , 3f CHR* <1S>; PRINT 

CALL HD:A* - A*s PRINT A* s IF PEEK <24> ( 23 THEN 

POKE 24 ,< PEEK (24) * 1>2 GOTO 548 

PRINT CHR* <4>*PR£B M : PRINT CHR* (4) H PR£3"j GOTO 
368 



REM 



** CECI CONCERNE CARTE MID ** 



PRINT IN*s PRINT CHR* <9)"T B : CALL 49238 + <25<S * 
WL < RIGHT* <IM* f l>>): GOTO 348 



REM 



F 1 H 



PRINT CHR* (21? i HOME i END 



I'odrosre ost poke© 
on S3A ©1 S3B (58 et 59). 



^ Transml«ion clatslque 
des donn&es et lance- 
men I de lo routine. 



^ Inutlli* si vous n« dtepo- 
i#j que d une impri- 
rnante, 

Porametres pour Imprl- 
mame matri-cjelle AppJe. 



^ Dans c* CO*, le pro- 

grdmmff <fat copie 

d'*cron r>e sert h rien 
(S8030 a $9067) . 

^ POKE 24,0 initialise le 
polnfeur du nombre de 
lignes d'ecran. 



APPLE II* of lie 

We fonctionne pa& <rn PSQD05 



GUY-HACHETT1 



12 



Double listage 

Partie EC RAN 



ASSEMBLELJR ProCODE 



SI vou& ne possddaz 
pa* d'assefnbleur, 
lapez seuiema-nt 
cette coloone, aprw 
unCALL-lSl 



i 
i 

2 
3 
4 
5 
6 
7 
8 
9 

ie 

n 

12 
13 

14 
15 
16 
17 
13 
19 
28 
21 
22 
23 
24 
25 



* 



DOUBLE L1STE LAN GAGE MACHINE 
EN 88 COLONNES & IMPRESSION 

APPLE lie umquement 



guy-hachette 



iivrttr 85 • 



* 

« 

INSDSl 

CARTE 

LIST2 

INTDOS 

PAGE 2 

PAGEl 

BASCALC 

CopBas 

CopHte 

DestBs 

DestHt 

* 



ORG *888& 



COP IE - ORB * 48 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
b GU 
EOU 
EQU 



-*FS82 

*FE95 

4FE63 

*83EA 

tC855 

*C»54 

♦FBC1 

*06 

*87 

MB 

iff 



j Adr, de I'inttr, & d#sa**tnrbl*r 

5 Camntande p*r I ph*r i <|u* 

1 Dfsasseenbl age de A inttructions 

1 Reprtse contrGlt SED 

; Lecture 88 colonics -> 2 

j Lecture 88 tolonnts -> 1 

8 Calc. *dr. Hgne de bast 

} Adr* df base 1 igne 4 topltr 

j Partie hiute pr«ctdente 

; Adr. war I able par tit basse 

: Adr . variable par tie haute 



BB88i 


A9 


08 




26 


LOA 


£«88 


1 


8B02; 


85 


3A 




27 


STA 


*3A 




8884i 


A9 


08 




28 


IDA 


£*08 




8086: 


85 


38 




29 


STA 


•3B 




8888 e 


28 


82 


F8 


38 


JSR 


INSDSl 


1 


888B: 


A9 


83 




31 


LDA 


£M3 


» 


8800: 


28 


95 


FE 


32 


JSR 


CARTE 




8818: 


A5 


86 




33 


LDA 


*06 




8012? 


2D 


63 


FE 


34 


JSR 


LIST2 


1 


8B15J 


A2 


27 




33 


LDX 


t*27 


i 


80171 


84 


21 




36 


STX 


*2i 




8019* 


B6 


28 




37 


STX 


*20 


1 


881B: 


A2 


88 




38 


LDX 


£MB 




eeiDi 


86 


23 




3? 


STX 


$25 


1 


881F: 


AS 


87 




40 


LDA 


f07 


1 


8821 t 


28 


63 


FE 


41 


JSR 


L1ST2 


1 


8824 s 


A2 


B8 




42 


LDX 


£*00 




8826i 


86 


20 




43 


STX 


*28 


! 


80281 


A2 


4F 




44 


LDX 


£*4F 


1 


802At 


86 


21 




45 


STX 


♦21 


I 


882C: 


28 


EA 


83 


44 


JSR 


INTDOS 




802F! 


*e 






4? 


RTS 







C*t uirttUPl vkennent du basic 



D'aprfra »3A »t *3B 

Slot 3 carte SB colonnes 

L* nbre d'lntttr. est da*t *BA 
II est retransmit 
3? en DEC] 

Lar<j*ur de U fenttre d'*cran 
Marge gauche 

Posstioti vtrticale du cor**ur 
Le nbre d'intt. n"2 dans tB7 
II est retransmits 



79 tn DECI 
Largsur fenfctre 

(PARTIS J au t VwJliJ 



13 



TREMPL1N MICRO 



^^mmmwwMmmmmmmmmmmmmmmmmmmmmmmmmmm m ~. 



Double hstage 




Partie HARD COPIE 


ASSEMBLEUR ProCODE 



59 * IMPRESSION IMPRIWNTE APPLE 

51 ************ ************* ********** 

52 # 

33 * L'adresse *!8 <Z4) de U PageB est remise k itro dans 

54 * le programme basic* La Tigne JB de ce dernier <qui ne 

55 # eonti&rrt que les 89 tspaces de la variable $A> ne de- 
* ura pas ttre modi*i#e et restera la premifcre. El 1 e 

57 * commence* a f'Adress* , 

58 * 



683B ; 




ftp 




59 


LDA 


( *na 

t tUD 








Ov W4 ■ 








60 


STA 






1 


11 1 d L d 2 | T Q 


8834i 


A5 


18 




61 


LDA 


418 




; 


Lecture pomteur <uia basic 




85 


25 




62 


STA 


♦25 




i 


Vtab pris dans pointeur *18 


8838: 


29 


CI 


FB 


63 


JSR 


BASCALC 




» 


Met bonne adr , er» *28 & «29 


893B: 


A? 


89 






LDA 


e«09 




1 


MSme combat avec adresse... 


B83D: 


85 


08 




65 


STA 


DestBs 






...variable <*889=*89 68) 


883Ft 


A? 


08 




66 


LDA 


£408 








9041 i 


85 


89 




67 


STA 


DestHt 








8843; 


A8 


08 




68 


LOY 


£»B8 




■ 


Mise & z*ro pour boucle 


8845 s 


8D 


55 


C0 


69 B COP IE ST A 


PAGE 2 




i 


Pour lire 68 colonnes P2 


8848: 


61 


28 




78 


LDA 


(CopB&s.) 




* 


C'est parti man Kiki ! 


80 AA : 


38 






71 


SEC 






• 
• 


Retenu* i 1 pour soustraire 


804B; 


E9 


B8 




72 


sec 


£488 




1 
s 


Car ac t*r* transform* 


884Di 


91 


88 




73 


STA 


(DtatBs.i 


A 


Ecr i t dans A* 


884Fs 


£6 


88 




74 


INC 


488 






Plus 3 adresse A* 


8851 : 


8D 


54 


C8 


75 


STA 


PAGE1 






Lire 88 colonnes Pi 


8854: 


Bl 


28 




76 


L rv. 


<Cop8as) 


• Y 




On lit 


88 54 i 


E* 


90 




77 


SBC 


£$88 






Dn soustrai t 


8858: 


91 


88 




78 


STA 


<DestBs) 


,Y 




Et on *erit 


88 5A: 


C8 






79 


I NY 








Plus un dans Y 


885B: 


CB 


2B 




88 


CPY 


£428 






A-t-on terming la Ijgne 


80501 


D8 


E6 




81 


BNE 


BCOPIE 






HON. . . on continue 


885F: 


68 






82 


RTS 








Retour basic et impression 


Table 


des 


symbo 


es ordrt 


al phabet 1 que 









-BASCALC. . -*FBC1 -BCOPIE 48845 -CARTE 4FE95 -CopBas . . . .48828 

-CopHt*. ...48829 -DeatBs.. .,48808 -DestHt ... .40889 -1NSDS1 . . - .4F8B2 

-INT DOS. . . .483EA -LIST2. . . . .4FE63 -PAGE J .... .4C854 -PA6E2. . . . .4C855 

table des symboles ordr* nura.riquf 

-DtstBs.... 40888 -DestHt. ...48089 -Cop8a&, ,48828 ? -CopHte ... .48829 

-INTO0S. ,. .403EA -BCOPIE. , . .48845 -PAGE1 .... .4C854 -PAGE2 4C855 

-INSDS1 ... .4F882 -BASCALC. . .*FBC1 -LIST2, . . . .4FE63 -CARTE 4FE95 

Pour terminer : BSAVE LIST80.LMC, A$80OO. L$60 



GUY^HACHETTf 
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FICHIERS 
ALEATOIRES 



EN KECISTREMENTS 
DE TAILLE FIXE 





L«— 1 




IN.". • 






~|i 


'■ 

- • ! 





N 



merit peut 
RETURN et 



les appelle aussi fichiam 6 acces direct, puisquils permettent de lire diree- 
tement la ou les donnees ecrites 6 partir de tel ou tel numero d ordre. 
Lembryon de programme que nous vous proposons id n'ecrit ou ne lit qu'une 
seule rubrique par enregistrement, mats il est bien entendu qu'un enreg.stre- 
comporter plusieurs rubrlques... 6 condition que celles-ci soient separees par un 
que leur longueur totate ne depasse pas !a lirrnte defmie au depart. 

Lecture ou ecriture Immediate d une information enregistree sur une 
disquerte, et cela quelle que soil lo taille du tichier. 
La longueur des enregistrements etant fixe, il peut y avoir des per- 
tes de place tmportantes. 

Nous avons prevu, par un INPUT amellore, la possibilite d'uti User les 
ignes de ponctuation dou la presence, lors de 1'ecrtture, du G$ 



AVANTAGE 



INCONVENIENT 



NOTKE EXEMPLE 



rem pi ace les gulllemets). 



CH 



20 
38 
48 
30 
60 
70 
88 
98 

i ee 
j is 

128 
138 
140 
S50 
168 
170 
138 
190 
200 
210 
228 
238 
248 
258 
268 



TEXT i HOME i PRINT CHR* (21) s Q* = 
R* <34> 
0% m CHR* < 13) + CHR* <41 

F* = "FIC" 

FOR I s ! TO 10 :T* = T* + " M NEXT 

QOSUB 438 

■ 

"rEM »»#**##*»**#*#******«*#*****«* 
REM * PETITES ROUTINES » 

REM •••»»#«»•************ 

' CALL - 198s WAIT - 16384,128,127s POK 

E - 16368,01 RETURN 

HTAB Is CALL - l?Bs RETURN 

1 

REM ##*#»*•■•#***#*»***** 

REM * ECRITURE DE FICHIER DIRECT • 

REM «*##**####*#**»«***»»*«******* 

'PRINT D*-OPEN 'F*- f L60" 
IF R < > 4 THEN 228 
PRINT D$* WRITE H F* M ,R8" 
N = H * 1 ! PRINT N 
PRINT D»"WRITE "F*' f R"N 
PRINT St + E* 
PRINT D*" CLOSE" 

IF R - 4 THEN POP i TEXT i 60T0 620 
RETURN 



Darv* Les parametres, 0*1 pourrpil 
ojootor la longueur d» chaque 
^ mnt egistr*menl : LO - 60 
▼ Ptu* »&1n„ il laudraH et«» 
tf c 1 1 rfl 

PRINT Df "OWN" fS M'UO 



- Pour Bflvo«r qu*U* louche a 
^ frgpp&j fcl iuffii de compl*1er 
par 1 O+QIX = PfW< (- H3M) *l 
Ion obilenl lo valeuc A5CII du 
<oracf&r*. 

Attention | tefie roulina n'flm 
pAehe pan CTRt-C d* provoqwar UW 
BREAK. 



, On pourrait placer pJuaiew* 
▼ robtiqws dons ES 



nombf o ddlerrolfi*}- 



(mals 
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TREMPLIN MICRO 



Le petit menu 
du programme 



Si vgus utilise? des enre- 
gistrem-ents plus longs 
(250 carocteres, por 
exem pie), aty ie bloc* 
notes, voua devrez en 
revoir lo presentation. 

Suggattton j Passer sur 
BO colon* 
ne& et re^erver la parlie 
gauche tte I'^cron au 
menu, tondis que la moi- 
M droit© sera ulllls£e 
pour la saisie et la lec* 
fure des donn^es. 



CeSte aiiuco dvita do retire un 
9nregl*frernen1 qui est dejb en 
memoiro 



Si le ffccihier n'existv pas, ONERS 
GOTO vo ecrfcre un beau ie.ro 
dons le p-aintg-ur, puis former ie 
Mchier... qui vlenf ainsi d'etre ere*. 



IL Y A 2 ENRE G I STREMENTS DANS FIC 



I* LIRE UN ENREGI STREMENT 

2. EF FACER UN ENREGI STREMENT 

3. REM PLACER OU CORRIGER LINE DOMMEE 

4. AJOUTER UN ENREGI STREMENT 
5- FIN DE PROGRAMME 

CH01X ? -> 3 

ENREGI STREMENT 2 

Ceci est 1 'enregi s-tremen t num^ro 2 
DU1 POUR REMPLACER CETTE DOMMEE 



270 


I 




288 


REM 




290 


REM 


* LECTURE DE FI CHI ER DIRECT • 


389 


REM 


»****+*♦-»■*»♦*«-»»»*»-»-»*•»««-*-**»# 


319 


• 




328 


IF NS 


= NL THEN RETURN 


3 30 


PRINT 


D*'OPEN "F*" , L60" 


348 


PRINT 


D*" READ "F* n ,R"NS 


350 


INPUT 


E* 


360 


PRINT 


D*" CLOSE" 


378 


NL - NS: RETURN 


380 






3?0 


REM 


•«******##**###***•»»**■#■»■+»«** 


400 


REM 


* NOMBRE D' ENREG I STREMENTS * 


410 


REM 




420 






436 


ONERR 


GOTO 488 


448 


PRINT 


D*"0PEN "F*",L60 B 


458 


PRINT 


D* H READ "F^-.Re- 


460 


INPUT 


N 


470 


GOTO 560 


488 


POKE 216,0 


490 






500 


REM 


****•♦*«•■•*•*****#*»#***###»* 


510 


REM 


» CREATION DU FICHIER DIRECT * 


528 


REM 




538 


• 




540 


'print 


DVURITE -F*-»R0" 


550 


PRINT 





568 


PRINT 


D* " CLOSE" 


578 







GU Y'HA CHIJTTE 



589 

5?e 

629 
619 

629 

639 
649 
659 

669 

679 

689 
699 
799 

719 
729 

739 
749 
759 
769 
779 
789 
799 
899 
819 
829 

839 
840 

359 

869 
879 

BSfl 
8?9 

?00 
?19 
9Z9 
939 

940 
759 



RE! I 
REM 
REM 



*»**#»#*••##****««»•*»»*-»-***»* 
* PETIT MENU GENERAL * 



HOME : PRINT "1L Y A "N* ENREGI STREMENT 
S DANS "F* 
PRINT T* 

PRINT M. LIRE UN ENREGI STREMENT" 
PRINT : PRINT "2. EF FACER UN ENREGI STRE 
MENT" 

PRINT t PRINT "3- REMPLACER OU CORR1GER 

UNE DONNEE" 
PRINT : PRINT "4, AJOUTER UN ENREGI STRE 

MENT" 

PRINT ! PRINT "5. FIN DE PROGRAMME" 
TEXT 

VTAB 14; HTAB 4i CALL - 958: CALL - 1 
98 i PRINT -CHOIX ? -> "J! GET R* 
PRINT R* 

R - ASC <R*> - 48s IF R < 1 OR R > 5 TH 
EN 799 

POKE 34,16; PRINT : PRINT T* 
IF R - 5 THEN TEXT i HOME : END 
IF R > 3 THEN 928 

i 

REM 

REM I NUMERO A LIRE OU EFFACER ft 
REM » »»#*«*»»«»«»**** •*•*•***• 

VTAB 22: GOSUB 126: PRINT "NUMERO A " | 
C* = "LI RE" i IF R - 2 THEN C* = "EFFACER 

IF R = 3 THEN C* = " REMPLftCER" 
PRINT C* H ? -> 11 I I INPUT flM IF N* = 

H M THEN 790 
NS = UAL (N»3 s IF NS < 1 OR NS > N THEN 

768 

GOTO 1080 

l 

REM 0»HOt»«t«**^*«M**#*»»^ 

REM * SAI5IE D' UNE OONNEE * 
REM mmtll iom«iHi»»**tM#»## 

* IF R < > 4 THEN tlH 

VTA8 1?8 HTAB ll CALL - 958 s FOR I = I 

TO 54 i PRINT t»*|t NEXT 
UTAB 19s GOSUB 128s CALL - 657 \E* » " 
FOR X = 512 TO 767: IF PEEK <X> < > 1 
41 THEN E* = E* + CHR* < PEEK <X> - 128 
) s NEXT X 

968 IF E« - * * THEN NL = : GOTO 699 

?78 IF LEN <E*> > 56 THEN 930 

9SB UTAB 19s HTAB I I CALL - 958i PRINT E* 



* Ce menu consiitu-e un 
▼ exempl* el non un 
models. Q ourres possibil«t£s 
pourroEenl Stre ofFertea b 
I'LTtifiwtviir : Tri dos dorv 
n**v Lecture d« lour tv 
fichi*r. Impression, etc 



CTftl-C (qo3 ne provoque done 
pas un air£i du programme) 



^ POKE 34,11 pfolfcge te* 16 
prerni-ero'S llgne* d<s 
I'ecfon. 



lnf»rriklion de hr* un en- 
1 regis rrvmvnr iiufxistanl. 



± Pourquai 36 ? force qu'Ort 
™ lafeso quatro poor 
la numerotage dm l'«nrfcgi»- 
(rement et les guiliemels ctu 
dibtflf 
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TREMPUN MICRO 



990 

1010 
1028 

1030 

1040 

1050 
1060 
1070 
1680 
1690 
1 100 

1 1 10 

I 120 

II 30 
1148 
1 130 



1160 
1170 
1 180 

1 198 



VTAB 22 i GQSUB 1201 PRINT "I* D' ACCORD 
— 2. A REFA1RE -> ■ft GET 0* 
IF R a 3 THEN RETURN 
IF Q» = "2" THEN 930 
IF 01 ( > " 1 ' THEN 990 



REM #****«»»»»«»»****•**»•»»•***»» 

REM * DESTINATION SUIU. REPDNSE # 

"VTAB 22 1 HTAB 1 
ON R GOTO 1106,1100, 1160,1190 
GGSUS 310 

HOME s PRINT " ENREGI STREMENT "NSi PRINT 

IF El ■ " THEN E* = * DONNE E INEXISTANT 
E" 

PRINT El! IF R > 1 THEN 1150 
GQSUB GOTO 690 

VTAB 22: GOSUB l28t PRINT "QUI POUR "C* 
•• CETTE DONNEE "js INPUT "jO*! IF 0* < 

) "0" THEN 696 
IF R = 3 THEN GOSUB 930! GOTO 1180 
E* = M " 

Mi = NiN ■ NS: GOSUB 188 *N = NHi GOTO 69 
8 

GOSUB 1B0I GOTO 699 



i II est ioujoura souholrable 
' d# derrtarKter confirmation 
avant d'enrB^istrer (el surtoul 
d'eHow) one dorm*». 



^ VTAB 22 : MTAB 1 vvu& per- 
™ me I d'**xire OV do lire I* 
ficKior son* laire remonter let 
llgnes de I'ecron. 



^ & est vide de son conMnu 
^ pour bMowt ui enrogU- 
Irement. 



Pour ecrire ou lire plusieurs rubriques par enregistrement 



ECRITURE 



D$ = CHR$ (13) + CHRS (4) : LQ = » : N = Q : ES 

= "UN" ; F$ = "DEUX": G$ = "TROIS" 
PRINT DS"OPEN FICHIER. L"LO 
PRINT D$"WRITE FJCHIER. R"N 
PRINT E$ : PRINT F* : PRINT G$ 
PRINT 0$ "CLOSE FICHIE R" 

ou encore : 

PRINT D$' OPEN FICHIER, L"LO 
PRINT D$"WRITE FICHIER, R"N 
PRINT ES, F$, G? 
PRINT DS "CLOSE FICHIER" 



en boucio : 

E$ 0) = TOTO ' t E$ (2) = 'TITI" i E$ (3} = 'TATA" 
PRINT D$"WRITE FICHIER, R"N 
FOR I = 1 TO 3 
PRINT ES (I) : NEXT I 

CUY-HACHETTE 



LIRE 



0* = CHR$(13) + CHRS (A) ; LO to 60 

PRINT "LECTURE" 

PRINT D$ "OPEN FICHIER, L' LO 

PRINT DS READ FICHIER, R"N 

INPUT E$, F$. GS 

PRINT DSXLOSI FICHIER" 

PRINT E$" "F$ G$ 



Tous Les programmes de la revue 
figment dans La disquette n°2 de 

TREMPLIN MICRO 



(Bulletin dn command* p*g« 62). 



It 



Additions 
BINAIRES 



SB 



OUT le monde salt — ou croit 
sovoir — addition ner ropi- 
demenl les n ombres bin ai- 
res t c'est leliement foci I e ! 



UNE REGIE EVIDENT* 




en binaire, 1 + 1 
- Q„. et on rettent 
tout de mime 1 , ce qui est lo moindre 
des choses. 

A par fir de Id. tout devienl limpide. 
Ainsl, 1 + 1*., + 1 {de relenue) = t,„ 
et on retient encore 1 , 

Essay ©z pour voir, ou ©ntroinez-vous 
avec le petit programme que je vous 

propose id. Ensuite, sur votre lance©, invitez toutes les personnes de votre entourage a 
additionner en binaire sur I'ecran de voire Apple cheri. 

UN CONSEIl : n'en restez pas la avec cet embryon de program me et off rez- vous le luxe 
d'additionner des nombres sur deux octets (mais oui. votre ecran vous y aufo- 
rise, et sans creer d 'out res caracleres specioux !). 

El main tenant, 6 vous de jouer (notez que tout celo. table de formes comprise, figure sur la 
disquette de Tremplin Micro n°2). 



Pour la conversion en ± 
binajro, an mat (a role 
nu«61 au deport. 

Valour hexed eeimale. 
Conversion en valour ^ 
btnairo. no prevoyant 
pas, id, do depouer 1111 



IB 

15 
28 
25 

30 

35 
48 

43 

58 
55 
69 
45 
79 
75 
88 
85 
96 
95 



HOME i HGR s HGR2 s QOSUB 598 



REM 
HEM 



« DEMO NOMBRES BINAIRES 8-15 * 



VTAB 1 : INVERSE ; PRINT 
EN BINAIRE " ; NORMAL 

INVERSE ! PRINT "MEXA'J! 
HTAB 14: PRINT "DECI" 

R ■ I iB* - *• ! PRINT 
FOR I = 8 TO 15 

R = 1 - R 
PRINT **8' MID* (HE*, I 
FOR J ■ 4 TO 1 STEP - 
IF T<J> ■ 2 THEN TCJ> 

B* = STR* a<J)> + B* 
NEXT J: HTAB 7: PRINT B*p 
HTAB 15 t PRINT RIGHT* <<" 
NEXT 



APPRENDRE A COMPTER 
I POKE 34,2 

HTAB 6*. PRINT "BINAIRE" ; \ 
NORMAL 



♦ l,l>i 
1 !T<J) 
8:R - 



TCJ> ♦ RsR = 8 



B* = 



+ STR* <I>>,2) 



I* 



fllMKIN micro 



APPRENDRE A COMPTER EN B1NA1 RE 



HEX A BINA1RE OECl 



9008 

dee i 

09 10 
6011 
8100 
0101 
0118 

111 
1000 

1 001 
19 10 
1911 
1 100 
1101 
1110 
ilil 



2 

3 

A 

5 

A 

7 

a 

9 
10 

1 1 
12 
13 
L 4 
1 5 



FN B I N* 5 * 1 E 

LA BASE EST Z 

Aln.U «u»nd on *bdi" 



EXEMPT 



9 




i 
1 



I 1 
1 1 



1 1 



1 



Si vous dispose! 
d une interface 
permettant lo cople 
d'ecran, vous 
pourrez vous editor 
cetut-ci. 

Sinon. le programme 
comports sa propre 
routine (DMP40] , 
fan ction no nt avec les 
im prim antes APPLE 
DMP et IMAGE 
WRITER (chorgement 
a rodresse$300). 



105 

i j a 
115 

129 

125 

138 
133 



148 



145 

150 
155 
168 

165 

179 

175 
188 
185 



PRINT i INVERSE : PRINT "BASE 0E NUMERATION" { : NOR 
HAL iT« ■ " NQMBRE 0' UNITES APRESLEQUEL V1ENT L'UNl 
TE D'ORDRE SUPERIEUR," 
GOSUB 223* GO SUB 230 

POKE 35,22i POKE 32,19: POKE 33,21 i VTA0 2; PRINT 
T* ■ "LA NUMERATION DECIMA-LE EST A BASE 18.*! GOSU 
B 225 

PRINT ! PRINT IT* ■ *IE SYSTEME HEXADECI- MAL EST 
A BASE 16.': GOSUB 225 

INVERSE : VTAB 4: HTAfl 15i PRINT 18 1 VTAB 7: HTAB 
16; PRINT 16i NORMAL 
GOSUB 239 

PRINT ! VTAB 9;T* - "EN B1NAIRE"* INVERSE 8 GOSUB 
225 :T* ■ ■ LA BASE EST * J NORMAL : PRINT ! GOSUB 2 
25: INVERSE t PRINT 2: NORMAL 
PRINT iT* = "Ainst, quand on *ddi -t i onn» 

1 tt t, on post 8... ft li r*tenue »it B 
OSUB 225 

PRINT ; INVERSE : PRINT "EXEMPLE" ( i NORMAL ! PRINT 
■ 8 9 8 1" 

* • i t r 



PRINT 1 

PRINT 1 ~ * 

PRINT 1 =8918" 

POKE 1890,49; POKE 1681,48: POKE 1887,58s GOSUB 23 
0i POKE 1898,177: POKE 1881,176: POKE 1887,178 

INVERSE J PRINT "EXEMPLE" } s NORMAL i PRIN 
t 1 I" 

+ 9 1 I P 



VTAB 17 
T ' • 
PRINT * 
PRINT ■ 
PRINT ■ 



1 1 1 



4* Example nwm6ro 1 



On poke les 
bran* 



ccnunti, 

4* Ex em pie numero 1 



waleurs 
empla- 



GUY-HACHETT6 
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198 POKE 1454,481 POKE 1455,4?; POKE 1456,49: POKE MS 
7,49: POKE 1463,53: POKE 1366,113: POKE 1367,113: P 
OKE 1368,113: POKE 1369,112* POKE 1374,113: POKE 13 
75,116 

195 GOSUB 238 : JEU = 8 sBP = 8 :VT = 8 ;TT = 8:TR = 8: GOT 
278 

290 : 

285 REM •*♦•••**«#•**•«**«***#»**#♦##* 

210 REM • PET1TES ROUTINES H 

215 REM •■»»•##■«*#«*#«»»»**«#**#■»»#» 
220 : 

225 FOR I - 1 TO LEN <T*) : PRINT MID* <T*,I,l)p FOR 
J = 1 TO 5:X * PEEK (49288): NEXT : NEXT : RETURN 

238 CALL - 198: POKE - 16368,8; WAIT - 16384,128,12 
7: POKE - 16368,9 iCH = PEEK < - 16384) ; IF ES ■ 1 
OR CH < > 27 THEN RETURN 
235 PRINT »*1 POKE 6,0: POKE 7,23: CALL 768; RETURN 
240 FOR I = l TO 1 598 1 NEXT : CALL - 198: RETURN 
245 : 

250 REM •#«■•#•■«#*•**••**■#***«»**#*• 

255 REM • PROBLEMES EN MODE GRAPH I DUE* 

268 REM ••••««*»•*«-***«*••«!•■#»**¥**•• 

265 REM I 

270 POKE - 16384,0: POKE - 16297,8* POKE - 16382,8: 

POKE - 16299,8 
275 H COLORS 9 1 HPLOT 0,8: CALL 62454} HCOL0R= 3 J JEU = 
JEU * 1 

288 IF BP < > 8 THEN FOR I - 1 TO SP'tTT - TT 4 I8i D 

RAW 23 AT TT,148: NEXT 
285 FOR AL - I TO 2 
298 N = 1 ♦ !NT t RND U) * 14) 
295 IF AL = 2 AND N + DEC J) > 15 THEN 298 
388 GOSUB 368 
385 DE<AL> - N 
318 NEXT AL 

315 VT = VT + 18: FOR TR = 1 TO 17: DRAW 19 AT 22 + 11 

* TR f VT; NEXT TRtVT » VT t 5 
328 N - DEO ) • DE<2)t GOSUB 368 
323 IF ER < > THEN 335 

338 TT - TT * 18: DRAW 23 AT TT,148:BP = BP * 1 :TT - 8 
335 ER ■ 0:TT = :VT - 8:VS = 8: GOSUB 248; IF BP < 12 
THEN 278 

348 FOR I = 1 TO 7: HCOLOR» I » FOR J = 1 TO BP i DRAW 2 
3 AT J * 18,149; NEXT : CALL - 198; NEXT 

345 IF (JEU - BP) > 6 THEN TEXT : HOME I VTAB 12s PR! 

NT •VOUS AVEZ INTERET A REVQIR LA PAGE DEMO 

, •., G0Sl}B 248: HOME 

I GOTO 48 

359 TEXT : HOME ; VTAB 12: PRINT "<]> ENCORE UNE F01S 
<2> C'EST TERMINE ■ ; : GET R*: IF R$ = " 1 * THEN HO 
ME ; GOTO 40 



TkE.MPL.IN MICRO 



Les caraderes de votre table de formes 



01234S6789flBCDEF • 



353 HOME : END 
368 R « 1 

365 VT = VT ♦ 30:DR ■ 25 

378 T<1> = 8:T(2) - 8:T<3> = 0:T<4) = 

375 FOR J - B TO 15 

330 R - 1 - Rl If I < ) N THEN 393 

385 OR = DR • 15: DRAW 16 AT DR,VT 

399 DRAW I + 2 AT DR + I5,YT:DR = DR + 128 

395 FOR J - 4 TO 1 STEP - 1 iT< J> - T<J> ♦ R«R - 8 

408 IF T<J) = 2 THEN T(J) ■ 8iR = I 

465 IF I ^ N AND VT - 165 THEN GOSUB 460 

418 IF I = N THEN DR = DR - 15: DRAW T(J) t 2 AT DR ,\JT 

415 NEXT J 

428 IF I ■ N THEN DRAW < ASC < RIGHTt <( STR* <N>),1> 
>> - 46 AT 280,VT! IF N > 9 THEN DRAW ( ASC < STR* 

(N))> - 46 at 185,vt 

425 IF I « N THEN RETURN 

439 NEXT 1 
435 : 

440 REM «#«*»«*»***#e«##»«*«#t «»•»■#•■ 

445 REM • REPONSE A LA QUESTION « 

458 REM «*■«#••*#**#*##****«#*«»*«*»** 



460 OR = DR - I5:"JP " VT ♦ 12 

465 DRAW 20 AT DR,VPt CALL - 198: CALL - 198: GET R* 

478 IF ASC (ft*) = 27 THEN TEXT i CALL - 198: POKE 
- 16368,9; WAIT - 1 6384 t 128 , 127; POKE - 16368,9: 
POKE - 16394,9: POKE - 16299,0: POKE - 16297,0: 
POKE - 16392,9 i GOTO 465 

475 IF R$ - STR* (T<J>> THEN 495 

4B9 ER = ER ♦ 1 

485 IF R* < > "9* AND R* < > " 1 * THEN B2 * s GOTO 5 
25 

498 GOTO 465 

495 XDRAW 20 AT DR,VP:DR = DR * 15a RETURN 
588 I 

595 REM #«*#•*»#*«##*«•«**##***<*«**** 
510 REM * REPONDRE PAR 8 OU 1 SVP • 

515 rem ##*«#**•*»««#«**##■•»*••#•§»«» 

520 i 

525 B7 ■ BZ + ll ON 8Z GOTO 539,535,548,545,538,553 
530 XORAU 20 AT OR, VP: GOTO 568 
535 DRAW 2 AT DR,MPi GOTO 566 
548 XDRAW 2 AT OR, VP: SOTO 560 
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Vows suivrsi porfaitstnon! 
le deroutement du pre- 
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labfe de formes ci-dessus. 
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vlont a I'add'ition. 
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du programme, el Ik nom- 
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545 DRAW 3 AT DR,VPi GOTO 568 
558 XDRAU 3 AT DR.VP: GOTO 56 B 
555 BZ « 8t GOTO 445 

548 FOR ZZ = 1 TO 19 iZ m PEEK < 49288 ) t XDRAU 21 AT 22 
5,VT: DRAW 22 AT 225, VT: NEXT s GOTO 525 
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579 REM 
575 REM 
589 REM 
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2;SK = 25888: HC0L0R" 3 
CHRf (4>"BL0AD NBR2-23,A"SH 
INT <SH / 256) * 256 t POKE 233, INT 



R0T= 8: SCALE= 
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<SH / 256) 

FOR I » 1 TO 6:DT ■ DT ♦ 28 : DRAW 2 AT OT, 
DT * 28; GQSUB 625: DRAW 3 AT DT,60: GOSUB 
T t FOR I = 12 TO 1 STEP - ] : DRAW 28 AT 
» OT - 28 t GOSUB 625: NEXT 
FOR 1 - I TO 6:DT = DT + 28 : XDRAU 2 AT DT 
UB 625 :DT = DT + 28: NEXT : FOR I » 1 TO 4 
8 AT DT,98:DT » DT - 48 1 GOSUB 625 ( NEXT 
FOR I - 1 TO 6iDT - DT + 48: XDRAU 3 AT OT 
UB 625: NEXT : DT = OT - 28 s FOR I » 1 TO 4 
8 AT DT t ?8j0T = DT - 48: GOSUB 625: NEXT i 
FOR J - I TO 14:BZ - PEEK < 49288); NEXT J 

SCALE- 1 ! TEXT : HOME 



68:DT = 

625! NEX 
DT,98sDT 

,68: GOS 
: XDRAU 2 

,68: GOS 
: XDRAU 2 
GOTO 638 
: RETURN 



REM 
REM 
FCM 



■ COORTE PRESENTATION • 



VTA6 7:T* - "VQUS POURREZ OBTENIR LA COP IE DE L'EC 
RAN" i GOSUB 225tT< = "TEXTE" t INVERSE : GOSUB 225tT 
% = " SUR VOTRE IMPRJMANTE (SLOT H MA1SPAS CELLE D 
ES ECRANS ": NORMAL : QOSUB 225 
665 T* = "GRAPHIQUES" : INVERSE : G03UB 225: NORMAL :: P 
RINT 

478 PRINT ST* = " I L V0U5 SUFF1RA POUR CELA DE PRF5SER 
LA TOUCH E < ESCAPE) APRES UN TINTEMENT DE LASONNETTE 
. COMME CELUI QUE VQUS ALLEZ SU-REMENT ENTENDRE** : 
GOSUB 225: CALL - 19Gi PRINT 

475 PRINT iff = "PENDANT LA RESOLUTION DES PETITES OPE 
RA-TIONS BINAIRES, VOUS POURREZ REVQIR LA PAGE DE 
DEMONSTRATION EN UT1LISANT CETTEMEME TOUCHE <ESCAPt 
).": GOSUB 225: PRINT 

668 VTAB 22: PRINT "VOUS ETES INVITE A PRESSER UNE TOU 
CHE'iES » li GOSUB 238 :ES = 0: HOME : RETURN 
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3F 


3F 


§E 


65F8- 


60 


4C 


45 


40 


4F 


32 


39 


20 


41F8- 


20 


2D 


35 


3F 


3F 


3F 


3F 


77 


63F0- 


20 


20 


20 


20 


IE 


3F 


3F 


3F 


6^600- 


4C 


41 


4E 


45 


8D 


3D 


3D 


3D 


6JE8- 


4? 


2D 


33 


3F 


37 


20 


33 


3F 


63F8- 


56 


49 


49 


09 


•0 


H t 


20 


20 


66ft8- 


30 


30 


30 


30 


30 


30 


3D 


3D 


41F0- 


B? 


49 


49 


0! 


1ft 


3F 


20 


20 


6400- 


20 


AD 


3F 


3F 


3F 


3F 


2€ 


20 


6616- 


BO 


60 


92 


92 


92 






* 


6JFB- 


2D 


2D 


35 


3F 


3F 


3F 


3F 


37 


A4»8- 


20 


20 


20 


3E 


3F 


3F 


3F 


3F 



















en 


g 

•4 





< 

x. 





*3 

b 




'0 

S 

8 

3 
a 



G-U V-HACHtTTE 
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ADDITIONS 
B1NAIRES 

(Suite) 



Ce programme o £te 
assemble ovec Pro- 
CODE, mois peut etre 
fepris avec n' import© 
quel as&embtaur, 
Vaus pouvez a u s s i 
taper direcle merit, 
apres un CALL — 151 

B _ 



8306: 


A9 


01 




0362: 


28 


95 


FE 




A2 


08 




83071 


BO 


63 


03 


036A: 


20 


5C 


OB 


030Ds 


CA 






830Ei 


D9 


F7 




03101 


A5 


24 




3312: 


85 


08 




031 4 ; 


AS 


25 




03161 


85 


0? 




0318! 


A9 


00 




631AI 


85 


24 




631G; 


A5 


0<S 




031E: 


85 


25 




0320; 


20 


CI 


FB 




1 

2 
3 
4 
5 

6 
7 
8 
9 

10 

1 1 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 
34 

35 
36 
37 
38 
39 
48 
41 



»«»**«»»••»«*•••••• •••••••••»•#*##•••»»• 



44 
45 
A6 
47 
48 
49 
50 
51 



HARD COP IE DUN ECRAN DE 40 COLONNES 
• AVEC IMPRIMANTE DMP OU IMAGBJRITER 



■ • 

•**»*#»-••••««••••••••••*•«»»*»»»*»***»»» 



Deux pokes obi i gatoi res, avant un 
CALL 768 qui ne I'est pas mo in* i 
POKE 6,VTAB-1 - POKE 7,LIGNE-FIN 
(LIM1TES; POKE 6,0 t POKE 7,23) 



ORG 


♦ 300 






EOU 


*FE95 


1 


Sorti* IMP 


EQU 


*D83C 




Impr i me A 


EQU 


♦DAFB 


■ 


Re tour char i ot 


EQU 


*F8C1 


I 


C*1 cu I e adr-b*** 


EQU 


♦03EA 


a 

9 


Repr i par S£D 


EOU 


*0£ 


I 


Li gne de depart 


EQU 


♦07 


i 


Der n 1 frr e 1 i gn* 


EQU 


*24 


I 


Htab curftfur 


EQU 


*25 


1 


Vtab curseur 


EQU 


♦ 88 


1 


M*mo htab curseur 


EQU 


*89 


i 


M#mo vtab eurseur 


EQU 


*28 


1 


Adresse 1 1 gn# 









* 

IMP 
OUTDO 
CRD0 
BASCALC 
INTDOS 
LDEP 
LFIN 
HCURS 
VCURS 
MHCURS 
MMCURS 
BASL 
* 

* INITIALISATION DE L' IMPRIMANTE PR£1 * 

* Caract. #troita expanae* <ESC"fT-CTRL-N> * 

* 80 COLONNES t CTRL- I " 80N" ) * 
* * 

LDA £*1 i Pr£l 

JSR IMP 
LDX £*88 

BLEC1 LDA PARAM-l ,X 

JSR OUTDO 
DEX 

BNE BLEC1 



I 8 caracterea 

i a 1 ire at 

; a transme t tre 

I * 

I 1 ' i mpr imante ■ 



Sauuegard* de la position du curseur 



LDA HCURS 

STA MHCURB 

LDA UCURS 

STA MVCUR5 



* — — 
# 

#— — — 
INIT 



Une lkgne apr*s 1 'fcutrt, sup! 



-* 

* 
-* 



LDA £*B 

STA HCURS 

LDA LDEP 

STA UCURS 

JSR BASCALC 



1 D4but de t I gne 
i Utab pos i 1 1 onn* 



TRiMPUN MICRO 











52 


















53 


# L'adresse 


de d&part, grace a UARCALC, * 










54 
55 


91 
H 


&st ma in tenant dans *28-*29 * 




















HO 






• — 

56 




LDY 








Lr 1 






57 
58 




LDA 


<BASL> , 


Y 


























59 


■ D^e Ha 

* p <& *i Ur 


mode 


i n ver se 


, de flash ou de "a" » 










60 


# m 1 4 a 


la place tie 


la jolie 1 case *FF... * 




























61 










9327 s 


c? 


E0 




62 




CMP 


£*E6 




0329i 


J0 






63 




BM I 


CAP 




0326: 


0? 


98 








ORA 


£*80 




832Ds 


C9 


» - f% 
E9 




65 




CMP 


£*E6 




832F i 




08 




66 




BPL 


BDC 




0331 1 


B ▼ 


LB 




67 


CAP 


ORA 


£*CB 




8333: 


C9 






68 




CMP 


£*E0 




8335 s 


36 


e? 




69 




BM1 


PAPIER 




8337: 


49 


4B 




76 


SUBST 


EOR 


£*46 




8 33t 1 


At* 


1 I.I 




7 L 




JMP 


PAPIER 




833C t 




p p 




72 


BDC 


CMP 


£*FF 




!"3 *— 1 'Til - _ 

033E i 


r W 


• — 

r / 




73 
74 
75 
76 




BEQ 


SUBST 


* 










# Tout c«U pour Impr 


imer une seule lettrel* 




















28 


5C 


08 


77 


PAPIER 


JSR 


OUTDO 




0343: 


ce 






78 




INY 






8344: 


C8 


23 




79 




CPY 


£*28 


■ T 1 V A 7R r SSf S 

1 t 1 f O JL. W \m Wt m W ^ 


0346 1 


09 


r-\ pi 

DD 




86 




BNE 


BLEC2 




0348i 


2d 


FB 


Dt-i 


81 




JSR 


CRD6 


1 Sirton- rstour char 


634B: 


E6 


66 




82 




INC 


LDEP 


5 Line I ign# de pl us 


034D; 


A5 


96 




84 




LDA 


LDEP 


1 ft ort compare 


034F1 


— i — 
C5 


B7 






CMP 


LF1N 


! k \ i one— f S n 


0351 i 


PV Pk 

M 


C5 




85 




BNE 


INIT 


; Encore une 9 sinon 










86 


















87 
88 


* Pr£8 «-t 


re tour 


au programme ba^ic * 


















0353; 


A? 


08 




89 




LOA 


£«0 




0355: 


20 


95 


FE 


90 




JSR 


IMP 


\^^^--^'^ 


6353: 

■F *r W T 


26 


EA 


63 


91 




JSR 


INTDOS 


B35B; 




06 




92 




LDA 


MHCURS 


635D; 


85 


24 




93 




STA 


HCURS 


835F: 
0341 : 


A5 
83 


09 
25 




94 

95 




LDA 

STA 


MMCURS 
VCURS 


0363; 


O0 






96 
97 




RTS 






























98 




PARAMETERS 


POUR IMFRIMANTE * 










99 


























8364; 


BE 

13 


71 
4E 


IB 
30 














33 


8? 




100 


PAR AM 


HEX 


0E71 IB 


184E303889 



POUR TEH MI NEB : BSAVE DMP40. A*MO. LS6C 



GU V-HACHCTTE 



BASIC rr UNCAGE 
MACHINE 



iDo$3,mmE /k- He) 



Imprimez des listages 
formates 

de vos programmes 




i I vous disposes d une imprimante, voirs over certainement la bonne habitude de 
conserver une trace impfirnee de vos principaux programmes, ne serarf-te que 
pour pallier le desagrement d une intempestive initialisation de votre disquette 
(helas \ cela arrive), 

Rations qu'il ne vous deplairait pas d'obtenir des listages formates (c'est-d-dire comportant 
une marge, un titre, un certain nombre de lignes par page... et un num£ro de page) de vos 
ch&res ^lucubrations ! Exact ? 

Ce sera d£sormais r pour vous en tout cos, chose focile r et en suivant un processus relative- 
ment simple : 



FICHIER T 



Creez d'abord, -6 parfir du pro- 
gramme a iditer , un fichter T. La 
fkhe n°l de Tr&mptin Micro vaos Sndlque la mar- 
ch* a suivre, moi* It n'est pas inutile de reveoir 
la-dessus. Lo routine FAITUST est done destinee, 
dans un premier temps, & creer le ffichler EXEC 
LIST, Taper-la, puis sauvegardez-ia, une fots pour 
toutes, par un "SAVE FAITUST", suivi d r un utile 
"LOCK FAITH ST", 



Ensulle, un simple RUN va creer 'EXEC LIST". 
V6rillez t par un "CATALOG" que "LIST" exist* 
r^ellement sur votre disquetfe, pr£c£d£ de la 
mention "T" et du chiffre "2". Si le "2"... est mal- 
heureu wmflnt " V ' , FAITLIST co mporfo une 
erreur, S3 toutvo bren, tape* un "LOCK LIST". 

Vous disposer malntenant du petit artifice qui va 
vous auioriser a transformer n'fcmporie quel pro- 
gramme en flchler T'\ 



FAITLIST 

10 DS * CHR$(4):GS = CHRS(34) 

1 5 PRINT D$"0PENL1ST" : PRINT D$"WR1- 

TEU5T" : POKE 33.30 
20 R$ = "60000 D$ = CHRS(4) : PRINT : 

PRINT D$" + G$ + "0PENP" + G$ + 
POKE 33.30 : PRINT 05" + G$ + 

"WRITEP" + G$ + "i UST0.59999 : 

PRINT DS" + G$ + "CLOSER" + G$ + 

" P0KE33.40 : END" 
25 PRINT RS : PRINT D$"CL0SELIST" ; 

END 



Trois comniandes son? necessoires; 

II. LOAD votre programme. 
2. EXEC LIST. 
3. RUN 60000. 

Qtn*rvn»lon S! I* programme b lister corn- 
parte une ligne superieure a 
59999, prevoyez un autre LIST dont le numero de 
ligna pour ro por oxomplo dtre 0. 



LISTAGE 



Cet utilrtafre va peut-etre vous 
parattre longuet, mols vous cans- 
taterez, 6 I usage, qu'H est r4ellement pratique 



L un de ses avantages est de permettre la lecture,, 
sur 6cran, de nlrnporte quel Hchier J T", ce qui se 
r£v&le fort inferessanl dans bien- des cos. 

Not*; qu'il n'accepto pas Co* "monttre* 1 ", e'ost- 
o-dlre les llgnes de plus de 255 caractfcres 
{m^tiez-vous de DAKIN, notamment, qui £ttmlne 
le-K REM, el compress* votre programme.-, mais 
en fabriquant pr£ci semen! de tels monstres, les- 
queJs Snterdisent d'oltleurs le renum£rotage)- 

D'outr* part, le nombre de lignes par page eat 
dimension n& dans le programme. II est rare, en 
effet, d'uilllser du papier dont la houteur varle 
d'une fats a I'aulre. 

El maintenanl, 6 vows de |ouer, sans oubller 
qu'un utilitaire ne devient r£etlement performanl 
que $1 son ullllsateur y place, kfi el Id. d« Instruc- 
tions correspondent 6 $*s besom* personnels. 

Un cortseH : Consocrez une disquetle spAc^ote d 
Fohffrti UST et LISTAGE, Vovs pourrer lo com- 
pleter par le USTAGS-LM que vous a propose le 
numero 1 de Tremptin Micro. 
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TR£MPLIN MICRO 



la 

15 
28 
25 

3S 

as 

50 
5S 

68 

45 

79 
75 
90 
85 
90 
95 

iee 

105 

ne 

115 

12a 

125 
130 
135 
140 
145 
150 
155 

ue 

145 

17a 

175 
188 

185 

i?e 

195 

205 

210 
215 
220 



LIST AGE «ECRAN-IMPRIMANTE» 

TEXT : HONE : PRINT CHR* C 21 > t GOSU8 605; REM SO 
US-PROGRAMME DE TRAJTEMENT DES ERREURS (PAUL MERRY J 
ONERR GOTO 628 
DIM LI (78) 

POKE 44452,111 POKE 44605, 10! REM 10 LI ONES DE 
CATALOG 

Bt = CHR* (1?:0* = CHR* <13) ♦ CHR* <4) 



lBiT* = T* + 
E* ♦ " 



next 



FOR I = 1 TO 
1 TO 25:E» - 
PRINT ' "fi IMMERSE 
F1CH1ER <T> LECTURE & IMPRESSION 



NO 



TS = M "! 

FOR 1 = 
VTAB li 
PRINT * 
RMAL 
VTAB 2 1 
VTAB 22 1 
LOG D2" 

VTAB 23j PRINT -CTRL-C - CORRECTION CTRL-F - FIN- 
ERREUR' 

VTAB 3t POKE 35,l8t 60T0 135 



PRINT T* ! POKE 34,3l VTAB 
1 PRINT "CTRL -A = CATALOG 



20! PRINT Tt 
Dl CTRL-B = CATA 



1 



REM 
REM 
REM 



- «4 444444 4* 44 44 44444444 44 94 4 4* 

» SA1SIE DES PARAMETRES * 

4444»*««44444444444441i*444«44* 



R - ASC <R*)j IF R > 31 THEN 125 
IF R * & THEN 69B 

IF R < > AND R < 3 THEN PRINT 1 HOME ; 

*" CATALOG, D"R; GET R*s PRINT ; HOME : GOTO 

IF R < > 3 OR S < 2 THEN 145 
S ■ S - li GOTO 138 
G* = G* + R*s GOTO 145 
G* = : GOTO 145 
S = 9iS-» = *E" 
S - S + 1 

VTAB 2 ♦ S * 2l HTAB li CALL - 868 
ON S GOTO 175,195,215 
INVERSE 2 PRINT G»;: NORMAL : GET R* 
IF ASC <R*J < > 13 THEN 108 



PRINT 
145 



THEN 145 
,208,220 



IF G* = 
ON S GOTO 1 
PRINT "TITRE DU FICHIER <T> 'js GOTO 155 
IF ASC <G*> < 65 OR ASC (G*) > 90 THEN G* = 
GOTO 145 
GOSUB 610 
J$ = G*;G* = * " : GOTO 148 
PRINT "<E>CRAN <I>MPRIMANTE 'j: GOTO 155 
IF G* = * 1 " THEN Si = *0': GOTO 218 
S$ = 'E n '.C/. = 88; IF G* < > "E" THEN G* ■ 
145 

G* = M '! GOTO 140 
PRINT -<1> AVEC minuscults <8> SANS GOTO 
IF ©* < ) ' 1 " AND G* < > *0 U THEN G* = " " : 
145 



3 GOTO 



155 
GOTO 



-Pour plus, tie 70 llgne* pw 
™ page, modHiercette vafeur. 



. Cm Indications tve tout 
™ volatile* que pendant la ub- 
sle d« premiers paramelres. 



,51 R = 4 (CTRL'F) »in de 
programme. 



. On ne pnut ctHrigar 
(ClTH.'C) que dans to 
mesure ou Ton a deja renrre un 
porpm*lTB (5 plus grand que 1 1. 



♦ En fair, ovec la roulint U5T, 
le lichior est toujour* Ktre 
"P", malt on peul le re- 
nammer.,. 



. Un essqi sur ecran tonsWue 
t une bonne precaution avant 
de passer 6 I'edition (pour 
toquclle on report a leroj. 



a Le Ullage sans minuscules 
™ pernwt neanmoin* de cpn> 
server lei. Seffres acterttt/*«. 



GUY-HACHETTE 



St Ton cboisil ('option A 
"Ceran". on pour stopper * 
a touf moment on pressonl 
la roothe POMME F£R- 

Ne pas ggbUer Que ie » 
litre VQ elre imprime en ' 
corocferes expanses, ce out 
doublcra sa longueur. 



Ouand V=I3 [RETURN], 
uno ligne de progt amine ™ 
vienl d'etre lue. 

Le programme «e plan re » 
michdmmonl sj la ligne 
compre plus dv 2SS corac- 
teres. 

Si POMME FERMEE Ml . 
pressee, reiour 6 la ▼ 
llgne 10. 



P% = Nombre de tlgrvos » 
I rrmdif iable) , Ne pas ▼ 
oubUef de tarrigar pari lei- 
lement la lione 365. 



P = Page. Si Pago = on t 

vg d'abord Imprlmer le " 
litre. 



Numerg do page, au ^ 
milieu d'une Ugno do ™ 
llrels, de mime longueur 
que la llgne de rexla. Cost 
rail,,, el co ne caale pas 
cher J 



225 K = fli IF 61 = T THEN $7. = 1 

233 IF S* = "E" THEN POKE 35,24: HOME I VTAB 21 s PR1N 
T T*2 PRINT » POMME FERMEE POUR ARRETER" : PO 

KE 35,26: UTAB i?i GOTO 28B 

235 IF S* = "0* THEN GQSUB 449 

248 VTA8 35: HTAB i: PRINT "ENTETE DU LI STAGE A EFFECT 

UER" : POKE 35,24 
245 HTAB ll VTAB 37: INPUT '=> " ;N* ; IF N* = M OR L 

EN CN*) > 3B THEN PRINT GOTO 245 

256 POKE 35,24 t VTAB 35: HTAB If CALL - 958: PRINT N 

*: PRINT T*: POKE 34,J7t PRINT 

255 ; 

266 REN ft*ft*»«x**s«»acx***»t »■»»•■*•** 

265 REM e LECTURE DU FICHIER <T) • 

276 REM «••.•«•»*»••»•****■#««•••« tMM 

275 : 

280 PRINT D*" OPEN* J* 

285 PRINT D*"READ"J*iL* - 

296 GET C*:V = ASC <C*J : 3F V = 13 THEN 315 
295 IF SX = I THEN 385 

38B IF V > 96 AND V < 123 THEN Ct = CHR* <U - 32) 
3B5 L* - L* ♦ C*: IF LEN <L*3 - 255 THEN 335 
33 8 GOTO 298 

315 PRINT D*: PRINT B*L«iW = ■ 1 : IF L* = " THE 

N 285 

326 IF PEEK <49256> > 1 27 THEN PRINT D*"CL0S£": CLEA 
R i GOTO 16 

325 FOR K « 1 TO 5: IF MID* <L*,K,1) < > ■ * THEN 33 
5 

336 IF K < 5 THEN L - 5 - K;L* = LEFT* <U*,L) ♦ L»: G 

0T0 345 
335 NEXT K 

340 PX = 64: IF P = 8 THEN PX - 58 

345 L = LEN <L*>: IF L < - D£ THEN AX • AX + 3 iL*<AX> 

= L*: GOTO 365 
358 AX a AX * ItLtCAX) » LEFT* (L$,COiL* ■ RIGHT* (L 
*,L - CO 

355 L h LEN <L*) : IF L < * <CX - 5> THEN AX - AX + (i 

L*<AX> • V* + L*j GOTO 365 
368 AX = Ay. ♦ 1:L*<AX> ~ V* t LEFT* <L*,CX - 5) :L* = 

RIGHT* (L*.L - COS - 5>i! GOTO 355 
365 PX = 64: IF P ■ 8 THEN PV, a 61 
370 IF AX < PV, AND B < > 53 AND B < > 5 THEN 285 
375 IF S* ■ *E" THEN GOSUB 415: GOTO 285 
3B6 iF P - B THEN GQSUB 410 

365 P » P + Is PRINT D*"PR£"DXi FOR I » 1 TO PX; PRINT 
L*<I): NEXT : PRINT 

398 M* = " PAGE " + STR* <P> + - " :A = (CX - LEN <M*) 
> / 2jM* = " ' + LEFT* <E*,A> + M* ♦ LEFT* <E*,A> 
: PRINT M*: PRINT CHR* <12)t PRINT D**PRC8" 

395 FOR I = 3 TO PX:L*U> = "*: NEXT 

400 IF FIN ■ 1 THEN 675 

405 GOSUB 415: GOTO 295 



29 



TREMPLIN MICRO 



418 PRINT Di"PR£"D7.; PRINT CHRi U4J" 'WTWIVY' 

CHRi U5>4 PRINT i PRINT ! RETURN 
413 BV. « 01 IF AX > PX THEN FOR ] = P7. + I TO AX:BX = 

BX + ljLi<BX> = Li<I>iLiU) = "": NEXT 
■12B AX = BX 

425 IF FIN = I AND Si = "E" THEN POP : GOTO 675 
438 RETURN 
435 : 

448 REM IIHIMMM«M»I **#•*» 

445 REM « PARAMETRES DE L' IMPRIMANTE » 

458 REM WiMMM»»#*«MM •»••****»«■»«**•** 

455 t 

448 I* - CHRi <27>iKi - ,, ne72Nea8EB94ql2eQl3API&8pi44" 
445 PRINT i POKE 35,24i UTAB 21s PRINT "PARAMETRES PAR 
DEFAUT = LSB MB 1 8 E SLOT] POUR REVEN1R EN ARRIERE 

, TAPER UN <?> "3 POKE 35,18 
478 V = 18 1 UTAB U: HTAB 1 ! INPUT "LONGUEUR DE LI ONE " 

;H»: IF H» = THEN Hi = *B8" 
475 IF H* = "?* THEN POP :Gi m »fj GOTO 145 
488 CX = UAL <Hi):H = 19; GO SUB 575 
485 V = II: UTAB Ml HTAB li INPUT * LARGEUR DE MARGE ' 

pH»t IF H* = " " THEN Hi <= "10- 
490 IF Hi = THEN 478 

495 Di =» li + *L8" ♦ HiiMX = UAL :rr*>:H = 19s GOSUB 57 
5 

588 V = 12: VTA6 Us HTAB It INPUT *CARACTERE IMPRIMANTE 

")H*t IF Ht = " THEN Hi = *E" 
585 IF Hi ■ " 7 " THEN 485 
SIB Pi = li + H*:C = BsH = 22; GOSUB 575 
515 FOR 1 = 1 TO 28 STEP 4:Ci = MIOi <Ki,I t i)iLX = V 

AL ( MIDi <Ki T l * 1,3)>1 IF Ci < > Hi THEN 535 
528 IF LX < CX ♦ MX THEN VTA8 15: HTAB I: CALL - 958 
i PRINT "LONGUEUR MAXI AVEC "Hi"=";i INVERSE : PR1N 

T LX: NORMAL : GOTO 478 
525 IF Hi = THEN 588 
53B C ■ 1 

535 NEXT I: IF C = THEN VTA8 15: HTAB I: INVERSE ! 

PRINT "CODES IMPRIMANTE ; H ? ! NORMAL : PRINT » " F 
OR I = 1 TO 28 STEP 4t PRINT MIDi <K*,1 ,»>"-" UAL 
< MIDi <Ki,I ♦ l,3)>" NEXT : PRINT GOTO 478 

548 V = 13: UTAB 13s HTAB li CALL - 958: PRINT "SLOT 
E L' IMPRIMANTE ' j s GET Hi; IF ASC <Hi) = 13 THEN 
Ht = "1" 

545 IF Hi ■ "?* THEN 528 

558 H » 22: GOSUB 575 

555 DX - UAL (Hi? : IF OX = 3 OR DX = 6 THEN 548 
568 UTAB U * 2: HTAB 1: PRINT "ALLUMEZ L' IMPRIMANTE 

»! CALL - 198: POKE - 14348,8: WAIT - 16384,128: 
PRINT 

545 PRINT OfPRCDX; PRINT CHRi WioBN" ; : PRINT Pi; 

j PRINT Ois PRINT DVPRfB' 
57 B RETURN 

575 UTAB U; HTAB H: INVERSE I PRINT H»; NORMAL : RETURN 



4ft Impression du tirre. 

♦ On recupAro las llgf>« 
qui n'anl pert 6t6 «mpri 
m«es.,. si lignes il y a. bien 



. Concern© I'irnprlmQnte 
* AppJe jcortt parol leJe ou 



Ceite porlle du pro- 
gramme deviu 4 Ire modi- 
fies si vous n'ufilisei pas 
unc jmprimanto APPlf- 
fieportei-voos alors a 
votre documental ion. 



Avant d'aklumw limpri- 
manlB, placer un pit du 
papier iaco 6 la lei* d'lm- 
prnsslan. 



GUY-HACHETTE 



j (nilialisftfion er» tonctlort 
W de» paramelres renlreS-. 



3D 



Celts routine es1 prfoo- t 
nisee par Paul M£ARY ~ 
dans son excellent ouvro- 
ae : "8ASJC APPLESOFT", lo 
Bible des ut'Hsat»ur> 
d'Apple 



rouHlet tin flchler, c'est ^ 
bien qw» celui-ci nexlsfe 
pas. 



On ptwrrcH aussl renv- ^ 
voyer au debtrt du pro- ▼ 
grornmo. 



5Bfl 
585 

595 

685 



618 
615 
620 
625 
639 

635 

640 
645 
658 
655 
660 
665 
670 
675 
ABB 
685 
498 



REM •*«*«****«**#*#****«**«*****#« 
REM • TRAIT Eh ENT DES ERREURS • 

REM •##•# •»■**»■«***#**#«•******** 



POKE 768,104s POKE 769,168; POKE 778 ,104? POKE 771 
,166: POKE 772, 223 t POKE 773,154: POKE 774, 72 i POKE 
775,1521 POKE 776,72s POKE 777, 96 1 RETURN 
PRINT i PRINT Dt" LOCK'S* 
PRINT DV UNLOCK* G* S RETURN 
CALL 768-.E - PEEK <222)! IF E = 53 THEN 385 
IF E = 5 THEN FIN - it GOTO 375 
IF E - 6 THEN VTAB 6s HTAB li PRINT 
ISTANT"! POP :G» " SOTO 145 
VTA8 17s HTAB 1; CALL - 86Bs PRINT ' 
ONE H PEEK <21B1 + PEEK <219> * 256 
FOR I = 1 TO 20801 NEXT I 
TEXT ! END 

REM ##*##»*#**«#**#*•#****##*#*#•# 
REM * FIN DE TRAVAIL * 

REM ##«**#•*#*■•*»******«**#***««» 



' FI CHI ER INEX 



ERREUR "E" LI 



PRINT 
PRINT 
FOR I = 1 TO 
TEXT t HOME 



"FICHIER <T> 
04 "CLOSE" J*: 



2088 1 
END 



LU" 

PRINT 

NEXT 



D* n PR£8" 



Un accessoire nullement inutile : le magnetophone 

UAND on dtspose d un lecteur de dlsquetie^ on a tondonce d nigligef lulilkation 
1"1 d'un acceiiolre qui, dons certain* cos. permel de wuver un programme i (• 
magnetophone. 

II n'eat pas raro, netammoni quond on uu obondnmnwnt den POKES, au l&riqu'on 
lance un CALL X,-. n'aboutiwant pot 6 une bonne adresw (ne aouriez pas ; tefa vou* 
firrjv^rrJ I ), de per dre le DOS. 
Ei altHv boilitfui lea d*gfila I le* commondca SAVE, LOAD, otc, ronton fr .on* oflet.. *t la chaf-d'ttuvr* qu» 1'an fl*n 
momolr* gamble bel et bi»n perdu. 

UHime re**ovrce : It magnetophone <6 p*lw de presence) qui, 6 mon avts, devrail 4tre branch* en penmanence. 
Deux coi defigure 3 1, La fa-uche RESET n'otfl plu* (ou CTRL-RE&£T>. C»t irremediable. L'Apple boude... mob on 
ne sail pas ou. 

2- Le RESET vous redonne la main. LIST prow* que le programme est toujour* la. Tout va bien I 

— Rembobtnez 6ventueHem*nt lo bande du magnifo. 

— Enfancei la ta-ucne "ENREGISTREMENT" (fwrbi* 2 touche*). 

— Topez tranquil lement SAVE, suM de RETURN. 

St la MUYegofde s* passe bien, VOUi enrenciei un premier iignal 40<n&re ap<r&5 quelques secondes d'attento, un 
autre vaus indSquero b fin de I'enregiittemenl, lalwei olors la band* $* derauler {quelque* millimetres}, puns 
atoppo* bipqpwtofii rem bob. n«* CW igl ' li "Aople Re^u^r b Cflfltod p&SISf < Tapez LOAD 

— Entoncez b touxrhe LECTURE du magn*to. puis revenei 6 tApple por un RETURN indlspensabfe. 
Normatemenl, vou* entenriei de nouveou les deux signoux sonore* et vous Fetrowverei wtre cher programme, 
mali orvec Ee DOS en mimolre el la pas-sibitil^d'eHectuer une sauvegarde sur disquelte. 

Un conieil s Essayez lout cela 6 frosd... poor v^fWier que le mogr>*to **! parfaitement connecrA £1 voire Apple, el 
q it'll fonctionne. 




TRBMKIN Mt CKO 



En mode TEXT, 

sur APPLE He el Ik 



C'rst pou r q uo 
upfs i nn r plUtt 
canftet 1* JEU 




t-E JEU DE L' HOMME LIBRE 



Uous connaiatez c»r t»t ntm»nt I* JEU OU 
PENOU. C ( n« ptut pas. dire qut c« col t 
+ ol ichon d* pendre Its Gens, tlors que 
I cur ifful b f Autt tst dt ne p a A fcrouver 
1* MOT CACHE' 



J« vous propose one autre 
par I 4 i hup , «innn pluc amu — 
DE L' HOMME LIBRE. 



D' accord , pour cofrmoncar , la bonhomm« bo 
trouve . , . ert c&g« , mals ch&quc BONNE RE- 
PONSE I u I entrouvr* la port* et T 4 i mlt- 
merit* pour luj , c tst la LIBERTE! 



PRESSEZ UNE TOUCHE POUR LE PREMIER MOT 



Pour oublier 



jejeudu pendu 



^ UCUNE difficult^ dons fa progrommation de ce petit jeu visuel, n'utilisanl que les coractfcres normau* de 
I 'Apple, et r*e passant en mode grcphtfque que pour dissimuler momernan&nent I'crffichage de la 
ucage» (quelques secondes* et umquement ou debut du jeu). 

Attention ! le trait vertical nexiste pas sur tous les APPLE, Sur ('Apple He, par exemple, il fout passer en 
mode QWERTY. ou se servir des coract&res "souris", (la routine de I a i page 34 monfre comment les obtenir), 
C HOI X DES MOTS Evifez les mots de plus de IS lettres. mais n'H&Hez pas 6 completer la petite lisle 

qui vaus est fournie id. Si tous desirez career la difficult©, choisissez de$ mots 
cornportonl ie plus possible de lettres difterentes. 

SUGGE STIONS Ecrjre un petit programme perrneltont de rechefcher de tels mots. Pr^voif des 
appreciations suivanl le score realise,,* Creer le meme jeu en mode graphique. avec, 
dans la cage, un personnage evidemment sympo {puisqu'il merite d'etre liber£). 



20 
38 

4e 

50 
66 
79 
88 



98 



CHR* <2I) : HOME ; HGR 



LOMEM: 17408 
TEXT : PRINT 
DIM L*<J5) 
H m 12: REM NOMBRE DE MOTS 
PRINT TAB< 9)"LE JEU DE L J HOMME LJBRE* 

PRINT TAB< ?)" 

PRINT 

PRINT * Vous connaissez 
NDU. On ne peut pas dire 

ndre les gens, alor& que teur seule faute e*t de r>e 

pas trouver le MOT CACHE! * 
INVERSE ; FOR I = ^ TO 8: VTAB 1j PRINT 

NORMAL 



certainernsnt 
que ce soit 



le 



JEU £>U PE 
ichon de pe 



NEXT i 



. LOMEM infmdit leffp 
™ cflmofii -de I'dcran fex- 
fe, mernatiae is parfir do 
radrcsse 16384, 



Ne pas oublter de modi- 
fier la valour do N, selon 
le nombre de malt mi$ 
on DATA, 



CUV-KACHETTE 



32 



Fait subltemem appwraT* . 
Ire 5a pogo da loxtn-... 



Toutours placer un PRINT 
ap*e* un GJFT. On re- 
pa«o en mod* grnphlque 
pour loiSSBf o 1'Applo I* 
lenrtps de tracer ia "cage". 



Memorisation de fewon, 
6 partir do I'adreue 
16384. 



Tel quit se present* ici. ^ 
le programme peul p*e- 
pour le m*tne mot a ptu- 
tieurt reprise*. Cost lo lac 
lewr cHarwe qui |ou». II 
MMOIT passible de memori- 
*er lea m«1* dejd Uowvos. 
pour eVItor col+o *vef» 

mailt*. 



Bfocement dv barraou 
de la cage ewTespoo- 
dani a lo leHre trowae. 



. 88 



1 IB 



123 
3 36 

148 
158 
166 
170 

ISO 

198 
288 

218 

228 
238 
248 

250 
260 
276 
236 
298 
388 
310 
328 
338 
348 

338 

340 
370 
388 

460 



4 1 H 



426 



440 
458 



PRINT s PRINT ["C'est pourquol i# uous propose une a 
utre'persi on , plus pacifique, sinon plus amu-sante: 1 
e JEU DE L' HOMME LIBRE . * 

PRINT t PRINT "D'accord, pour commfneer, le bonhoiwn 
e setrouv*... en C40,e, mais chaque BONNE RE-PQNSE lu 
i entrouur* la porte *t, finale-merit, pour llif, e'e* 
t la LIBERTE ' - 
TEXT 

VTAB 22 s PRINT * PRESSES UNE TOUCHE POUR LE PREMIER 
MOT * ? s GET R* 



REM 
REM 
3 EM 



t TRACE DE LA ' CAOE " » 

••**«**•••#■»■« *#•#*» •♦•****»» 



PRINT : HOME 

HOME : VTAB 22: HTAB 18: PRINT PATIENCE SUP 

-"i HGR 

FOR 1 = 2 TO 17s FOR J * 2 TO 24: VTAB 3 : HTAB Js P 
RINT "&': NEXT : NEXT 
VTAB li INVERSE 

FOR I = 1 TO 25: PRINT " "s? NEXT I PRINT 

FOR I - 2 TO 17* VTAB I, HTAB ii PRINT " ■ ; t HTAB 2 

5i PRINT " ": NEXT 

FOR I = I TO 25: PRINT ' NEXT : NORMAL 8 PRINT 
GOSUB 648: TEXT 



REM 
REM 
REM 



>•»»*«*•****** MM •*»»»• 

CHOIX DU MOT • 



M = 1 * INT ( RND < 1) * NJ t RESTORE 

FOR I = 1 TO Mt READ M*: NEXT 1 
L = LEN CM*>: FOR 1 - 1 TO LiL*< I > ■ MID* <M*,I,U 

: NEXT 

VTA8 161 HTAB 28; PRINT "ENCORE" ; VTA 8 10s HTAB 20i 
PRINT "A TROUVER* 
NL a L 

VTA 8 20: PRINT "LE MOT A SECRET CCMPTE "L" LETTRES' 
1 = 
I • I 4 1 

VTAB 17! HTAB 28s CALL - 866: INVERSE : PRINT NLfi 
NORMAL i PRINT ■ LETT RE" p t IF NL > 1 THEN PRINT n S 

n 

IF NL = 8 THEN 3=1 - U VTA8 28 ! HTAB 1 1 CALL - 
868: PRIMT 'CAGE OUVERTE EN " j i INVERSE I PRINT I jl 
NORMAL t PRINT " ESSA1S" t GOTO 4?6 

PRINT : VTAB 22: HTAB 1: CALL - 863i PRINT "LETTRE 
PROPOSES -> 'js BET R»! PRINT "* nT 
IF ASC CR*) < 65 OR ASC <R*> > 98 THEN 428 
FOR J - 1 TO LV IF R* < > L*(J) THEN 470 
FOR K = B TO 17* VTAB Kt HTAB J + 2: PRINT " 9 i HEX 
T K: INVERSE : VTAB 18: HTAB J + 2: PRINT R* : NORMAL 





TREMPLIN MICRO 



448 
478 

m 

490 
508 
510 
52B 
339 
540 
558 

549 
570 

5?e 

618 
428 
430 
448 

650 

640 

678 

680 
490 



L*(J> = :NL - NL - 1 

NEXT J 

GOTO 390 

YTAB 22: CALL - 868 1 FOR 1 
I 

REM ft«**4«****«**»*x****«i*****«**« 

REM • SUITE OU TERMINE « 

REM t»««t»»*t*«**tt**t*****t****#t 



1 TO 1588 2 NEXT 



CALL 
INE ? 
IF R» 
IF R* 
TEXT 

t 

REM 
REM 



<1> UNE AUTRE PART IE <2> TERM 



GOTO 320 



- S93 i PRINT ' 
"j! BET Rl 

m *t* THEN G0SU8 438; 
< > i 2 H THEN S58 
HOME : END 



» DEPLACEMD4T DE LA "CASE' t 

t«»»ffl«» «»!••»• •«*■•***■*•***• 



D = I Hif4 ! Z = AH ! 

8SD ■ 1638452 = 
D - J 43041? - 40 

678 i D » 1024i2 < 



GOSUB 678:0 - 2888 :Z = 62: G0SU8 47 
66: BQSUB 678: GOTO 66B 

GOSUB 478 tD - 17348 1 2 - 42 1 G05UB 

66 s GOSUB 678 



POKE 768,l68i POKE 769,8i POKE 778, 74t POKE 771, 44 > 

POKE 772,254: CALL 768: RETURN 
POKE Z,D - INT (0 / 254) # 256: POKE 2 4 1 , INT <D 

/ 256); RETURN 

( 

DATA ACCELERATEUR.ALl MENTAT I ON , AUTOCHENI LLE , BARA60 
UIMEUR , CHAMAI LLERIE ,D1 STRACTI ON , IN FORMAT 3 DUE , RE CONST 
RUCT I ON 1 1 Ng I TAT 1 ON , C OURA GEUS EMOfT , EXCENT R I C I T E , NE8UL 
OSITE 



La lellre fruuv^e est 
supprimN. NL fournif 
Ifr nornbrc do koirras a 
Identifier. 



4 GOSUB 650 perfnct de 
~f£cupiref la cage 
(intocte) el de I'aHlcher 
irrslantanefnent. 



j Cefle rayJIno mt Id 
"repla do cttlla donn4» 
pai la lkh« de TREMPUN 



A vous <t* dofiner libra 
couirs a votro imagina- 
tion, el pas da met* 
loids. 5. VP. I 



LES CARACTERES "SOURIS" DE L'APPLE tfc 



10 PRINT CHR* <4) "PRCS* ; PRINT 
38 FOR 1 ■ 64 TO 95 STEP 4 
35 V ■ V + 2:H = - 9i VTAB V 
45 FOR J = I TO I ♦ 3:H = H + 10 
KTAB H: PRINT CHR* <24);Jj". 
: PRINT CHR* <27)j CHR* CJ>j 
NEXT J 3 PRINT : NEXT I 
PRINT CHR* (24> 



58 

55 
48 



CHR* <17){ 



.."JJ INVERSE 
NORMAL 



Cette petite routine va vous per- 
mettre de vtsualiser les coracle- 
res "sour is" de votre APPLE He, 
et de connaTtre la valeur ASCII 
de la fouche correspondante. 



JEU DE L'HOMME LIBRE 

Pour un APPLE He, vous modlfierez ainsi votre 
programme. Notez que vous pouvez regrouper 
les lignes 205. 210 et 215 sur une seule ligne. 



CHR* (4)*PR£3 H : PRINT 
C17): HOME : HGR 



20 PRINT 
CHR* 

205 PRINT CHR* itfU INVERSE 
218 FOR 1 = 2 TO 17; FOR J - 2 TO 

24: UTAB It HTAB J: PRINT * 

"l NEXT : NEXT 
215 PRINT CHR* <24> 



GUY-HACH6TTI 



34 



n a in rt ■ ■ l\4D A ID 

PAIR OU IMrAlK 


Basit 


avec quelques octets 


et langage machine 



18 FOR I - i TO 2509 

28 N = 1 ♦ INT < RND <1> * 255) programme en Basic con- 

30 IF INT<N/2)=N/2 THEN A = t Jr6le s , & s n0 mb«» fl *n*f*» P°r la 

A + 1 fonction RND son! pairs ou impairs- 

dfi NFXT 1 11 comple ceux qui son? exactemen! 

58 PRINT A divisible* par deux etaffichele total. 



LA BOUCLE... EST.BOyCjiyN^E^NDES 



. , nemini-routin* en longage machine permet da gognar un P eu P 1 "' ^ ^•™^ B J , b 'i; 
U ecanomie de 20 % ce n asi pas negligeable. Nou« verrons plus tard qu <l est possible 

de fair© beaucoup mieux, mats n'anticipons pas I ceSi^el 

On iransmet la valeur de A au sous- programme machine par la tanc 

aboutn a un JMP SE6F5 qui place eette valeur ^ns 'accumulateur^ a ronsforme en entler 
It la transfer* dans le registre X.„ ou notre routine ta reeupere. L«plirtot. 

On aurott ouifl pu poker A •« 8 *l l> rd«up4ror per on 

tuA sen 

On pew" X doiii A {aceumulctour). 

Annotation d'un* rotoituo antorlftitre ovantualle. 

Rotation 6 droit* (dlvlw par 3). S impair. U bli qui tort 
6 droits «t 1 (C = 1 ... rot»nuo). 

Si C = 1 . retour ou boik. 
Pta* un dont le polntour 06 (page xere)... 
„, chdrge dam I'occufnololour..- 

... pour !• eomporar 6 $00- ill vout lero. Cert qu on 
v?*nt defelreSFF + Wl = *00, 
S'll *■» dlfJAront, r*t*wr nu b*«fc, 

... f Inert p-tut un pour I** si il f t llM i (p«rita Kauto). 

Bask. 



0300 


_ 20 


F5 E6 


JSR 


$E6F5 


0303 


_ 8A 




TXA 




m 


_ IB 




CLC 




0305 


_ 6A 




ROR 




0306 


_ B0 


OA 


BCS 


$0312 


0306 


_ E6 


06 


INC 


m 


□OA 


— A5 


06 


IDA 


$06 


030C 


_ C9 


00 


CMP 


£$00 


03M 


_ DO 


02 


BNE 


$0312 


0310 


_ E6 


07 


INC 


S07 


0312 


_ 60 




RTS 





EXPLICATION j 



Au d*port, on a mis $6 st $7 b JO. II 
lout «n eltet 2 octets poyt ilocker lc 
nombre d* num*ros pairs, polsque 
calui-ci vci d*pass«r 255. 



PRO GRAMME EN BASIC 

10 POKE o,fl: POKE 7,8: FOR I = TO 2560 
20 A = 1 * INT < RND (1) * 254) : CALL 

?68,A 

38 NEXT I: PRINT PEEK Co) + PEEK <7> 
* 256: CALL ~ 198 



35 



TREMPLIN MICRO 



Si vous etes ingress* par les caprices du hasard. 

1 8 LGMEM * 40 1 & allei plus loin avoc lot nombres al&atoires l... 

15 GOSUB 168 

28 PRINT * LE PROGRATtlE GENERE 3888 NOMBRES ALEA- TOIRES, COMPR1S E 
NTRE 1 ET 255, ET COMP-TE CEUX OUI SE REVELENT PAIRS": 

25 PRINT : PRINT "TAPER <1> POUR EDITER LES RESULTATS (IM-PRIMANTE 
DANS LE SLOT J) -> ■ f i GET IM*t PR 3 NT IM* 

38 FOR I = 1 TO 3886 

35 N = 1 ♦ INT < RND (1) « 255) 

48 POKE P * N,l * PEEK <P * N) 

45 IF N / 2 = INT CN / 2) THEN IM ■ IM + 1 

58 NEXT 

55 IF IM* = "I" THEN PRINT CHR* <4)"PR£l»i PRINT CHR* <27)*E'fi 

PRINT CHR* <27> B Lei8"; GOTO 65 
A3 PRINT CHR* <4>*PRf3' 

65 FDR I = 1 TO 51 i FOR J = 1 TO 65 STEP 13 

78 POKE 3d, Jt PRINT RIGHT* <<• " t STR* U + IN) ) ,3? + " - " PEE 

K <P + 1 + IN) ; ! IN a IN * 51 
75 NEXT J: PRINT iIN ■ 8: NEXT I 
88 PRINT * "IM" NUMERQS PAIRS' 
05 IF IN* = "I" THEN PRINT CHR* <4)*PR£0" 
90 PRINT r GOSLfB 145t GOSUB 1 48 1 IF T - 1 THEN 125 
93 IF T " 2 THEN 133 
188 PRINT "VOICI LE MEME PROGRAMME, MAIS AMEC LE N OMBRE ALEATQIRE 
GENERE PAR UNE ROUTINE EN LAN GAGE MACHINE r ET LES NOMBRES PAIRSCO 
MPTES PAR CETTE MEME ROUTINE. " s PRINT : PRINT 
185 -FOR I ■ 748 TO 882s READ Rs POKE I f Ri NEXT 
118 GOSUB 1 65s CALL - 198 
113 FOR I = 1 TO 3888 
128 CALL 748jN ■ PEEK U8)s NEXT I 

121 PRINT sT = T + 1 i IM = PEEK <.&) + PEEK <7) * 256: GOTO 55 
125 PRINT s IWERSE : PRINT 93 {! NORMAL : PRINT " SECONDES EN BASIC" 
i PRINT 

138 PRINT s INVERSE i PRINT 43p NORMAL s PRINT ' SECONDES AVEC LM ■ 
: PRINT 

135 FOR I = ?6B TO 823s READ Rs POKE I.Rs NEXT 
148 GOSUB 1 65: GOSUB U8 

145 PRINT "POUR TERMINER, VOICI LE MEME PROGRAMME, ENT1EREMENT EN LA 
NGAGE MACHINE (ON NE RENVOI E PLUS LES NOMBRES ALEATOIRES AU BA 
SIC, MAIS ON FAIT TOUJOURS LES TOTALISATIONS.- : PRINT 

158 GOSUB 163 i CALL 768: GOTO 121 

155 PRINT : PRINT PRINT "16 SECONDES... C'EST ENCORE M1EUX" : GOSUB 
165: HOME : END 

168 TEXT s PRINT CHR* (21) : HOME :P * 3744: FOR I ■ 3744 TO 3999 1 P 
OKE l,0i NEXT : FOR 1 - 6 TO 18: POKE 1,8: NEXT : RETURN 

165 PRINT : PRINT : CALL - 198: VTAB 23s HTAB 1 : PRINT ' EN F ONCE 2 UN 
E TOUCHE ': POKE - 16368,8: UAIT - 14384,1 28 t PRINT j RETURN 

170 DATA 32, 174, 239, 148,.l4, 169,8, 32,127, 233,238, 161 ,165,141,133,18,1 
70,254,168,14,24,186,176,10,230,4,165,6,28] ,8,288,2,238,7,96 

175 DATA 32,174,239,168,14,169,8,32,127,233,238,161,165,161,170,254, 
168,14,24,106,176,18,238,6,165,4,281 ,8,286,2,238,7,24,165,8,185,1 
,133,8,165,9,105,0,133,9,281 ,11 ,288,287, 165,8,281 , 184 ,288,281 ,96 
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<ai • n 
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HI • t 
i*l • t 
iv • t» 

•41 • I 
III • |l 
■ O • l> 

III • I 

414 • M 
Ufl • If 
*tt • II 
!«' • If 
ia» • t 

\H • IJ 

in . « 
n • ii 
if* • ii 
in • »t 
m • ii 
ut • (• 
iff • % 
id • it 
)jn ■ it 

itM • I 

in • i 
in • • 
hi • it 
mi • it 
in • ii 
iu - II 
in • f I 
■ii • n 
<n • t 
it i • ti 
m • ii 
■tj . ii 
w • • 

im m I 

in • ii 
if* • ii 
it* • il 
lit- ii 
m • I 
m • \r 
m - ii 

Mj * It 
m « ii 
« ■ • i 



Itv 
in 

144 

111 

III 
Jit 
II' 
til 



X21 

at 

Ot 

W 

w 

nt 
tn 

T» 

m 



HI 

HI 
541 
144 
. «l 
144 

Ml 

XI 

ni 

m 

MJ 
TV 

nt 
rti 



tn 
ii 
ii 

i > 

• i 

ii 

ii 

ft 
i 

I ■ 

t 

it 

m 

ii 

-i 

ii 

t 

it 

ii 

ii 

14 
Ii 
1 1 
II 
11 
t 

lr 
It 

» 



ET POUR TERMINER, 

16 SECONDES pour tout faire ! 

Gtntrer 3000 nombres alooioros, conipris enlre 1 & 255, toto 
liser la quantity do ti rages, par numero et l# nombr* de nurm6- 
ros , tout cela en 16 seconde* I 

l«s numeros pairs sent 1otal!sea aux adresses $6 et $7 (page 

lero) et le compteur utilise l« odress*s $S et de cette meme 

page. Le nombre de tirages par numero est ecrlf sur 255 octets. 

6 par) If d* $EA0 (3744), 6 la suite du programme «demo» d- 

contr e. C«s 255 octal* soni proteges par 10WEM. 

On poorroit evidemment transmettre chaqu* Urage au basic en 

Cecrlrvortl «n page zero, a Cadresse SOA par exemple, 

II seralt oussl possible aVs sacrifier 3000 octets... en page graph i- 

que notamment, ou sous on HiMEM a determiner. 

Ct prag/amrrve ne generanl que des <iombre^ 6gaux ou inle- 

rieurt 6 255, chacun d'wjx ne necessite qu'un octet. 



ORG $300 



RND 

FMULT 

FACtO 

ECRIT 

PAIR 

11 

B2 



EQil 
EQU 
£OU 
EQU 
EOU 
EQU 
EQU 



SEFAE 

$E97F 

$AI 

$EA0 

$6 

$B 

Bl + I 



ARC <r (Y.A;. *t opp«l FMULT 
Ou picupitw HMD cur imi act*! 
255 octets sous LOMEM 
Portia bois* du no*nbr* 
Cornpleu r bouck portia bossa 



0300 




20 


AE 


EF 


BOUCLE 


JSR 


RND 


0303 




AO 


OE 






LDY 


£SE 


0305 




A9 


00 






LDA 


E$0 


O307 




20 


7E 


E9 




JSR 


FMUIT 


030A 




E6 


Al 






INC 


FACLO 


030C 




AS 


A1 






LDA 


FACLO 


030E 




AA 








TAX 




030F 




FE 


AO 


oe 




INC 


ECRIT.X 


0312 




10 








CLC 




0313 




6A 








ROR 




0314 




BO 


OA 






BCS 


LIMIfE 


0316 




E6 


06 






INC 


PAIR 


0318 




A5 


06 






LDA 


PAIR 


031A 




C9 


00 






CMP 


fSO 


031 C 




DO 


02 






ONE 


LIMITE 


031 E 




E6 


07 






INC 


PAik+i 


0320 




18 






UMITE 


CLC 




0321 




AS 


08 






LDA 


11 


0323 




69 


01 






ADC 


£501 


0325 




85 


08 






ST A 


ei 


0327 




AS 


09 






LDA 


19 


0329 




69 


00 






ADC 


£$0 


0326 




85 


09 






STA 


B2 


032D 




C9 


OB 






CMP 


£S0B 


032F 




DO 


CF 






BNE 


BOUCLE 


0331 




A5 


OS 






LDA 


Bl 


0333 




C9 


B8 






CMP 


£$BB 


0335 




DO 


09 






BNE 


BOUCLE 


0337 




60 








RTS 





On yo I. (olr* 3000 Mi 1 
Pour ARG partlu basin 
ARC porfl* Hau»t> 
f AC .' par AUG 
Plus 1 pour Avvttvr U itk« 
Namtird dam 1'occumufiofaur 
On tn prate oVani I* rat^itra X 
Plus urt 4m uHl vnl«rur 



Annulaflort 6m la r*tenu« 
Rvlstlsn peur aivtivr par 3 

SI r« kttiut , Impair #t tovt 

fiJnvn wn |M>lr 4m plwi 
Lu pour voir ifi ancitfl iff 

...aw atari . I*vt 

Por1l# Incratnimtii 



Prftcevr Ion vtlla 
Oir mm la twucU t 
AddWIo-n d oborfj 
tcnlur • vniuh* 
iKfur* parti* hovfii 
AddE+la-n d* l« rttinui il... 
Full rMcrlfvrv ImmtydlD+ti 
On camper* 6 S0B-B4 (SDOO) 
SI poi aflol, *ftcor« un lour 
Vp-lr pqrtlw bona 
Eri-c* «f ol qu nan ? 
On rvporl it uiafalM 
Rtrtour ou baik 



S7 



TREMPLIN MICRO 



DISSEQUER 
un nombre 



II y a deux melhodes pour diss^quer un nombre. La premiere 
esl mathematique... et lente. La second© ultlise to tonclion 
MtD$ de votre APPLESOFT, et se revele plus rapid©. 
Ce court programme vou* en fournSt visueJlement lo preuve 



IB TEXT s PRINT CHR* (21 )i HOME I 
INVERSE 

20 PRINT ■ DEUX METHODES POUR D1SSE 
QUER UN NOMBRE * 

30 POKE 34 ( 5i PRINT 

48 HTAB 3; PRINT "Pi J HTAB 24s PR1 
NT "2* ;t HTAB ?s NORMAL t PRINT ■ 
MATHEMATIOUEMENT" j! HTAB 26t PR IN 
T "AVEC 1 OMR* C34>'M1W" CWR« 4 3 
4) 

58 PRINT 

60 PRINT " ESSA] AUEC LA MET 
MODE 1 



7B CALL - 198 j UTAB 9i HTAB S: CAL 
L - 868; INPUT "NOMBRE n iN*: IF 
N* - THEN 236 

33 i 

90 L - LEN <N*>i IF L > 9 THEN 70 
100 FOR I b 1 TO L:A = ASC ( MID* ( 
Nft,I T l>): IF A > 47 AND A < 58 TH 
EN NEXT i GOTO 120 
lie GOTO 76 

120 S - UAL (N»»iN» = STR4 (S)jL - 

LEN CN*>1 PRINT 
130 FOR 1 ■ 1 TO LiD = L - IsN(I) = 



INT <S / 10 * D) iS * E - INT CN 
<I> » 10 * D) 
140 PRINT NUT "S 
156 NEXT ; CALL - \9B 
160 VTAB 6>, HTAB 31 1 INVERSE ; PRINT 

2 i NORMAL 

170 PDKE 32,20s POKE 33,20* PRINT I 
PRINT 

180 i 

190 PRINT "VARlA8LE*s"N*: PRINT 

200 FOR 1 = J TO LiN<I> = WL < MID 
* <N*,I,i)>sB - 0! IF I < L THEN 
S * VAL < RIGHTS (N» P L - I)> 

210 PRINT N(D" "S 

220 NEXT i CALL - 198 

230 ; 

240 TEXT 

250 UTAB 22 t HTAB It CALL - 19Bi PR 

INT *U> AUTRE ESSA1 <2> MENU DIS 

QUE <3> FIN"!! SET ft* 
260 PRINT s IF R» = "1* THEN VTAB 6 

t CALL - 95B! GOTO 60 
270 IF R* = '2" THEN PRINT CHR* <4 

J" RUN MENU" 
260 IF R* < > "3" THEN 25B 
290 TEXT s HOME : END ■ 



ONERR GOTO 



Routine en ossemhleur 

Lo iigne de POKES (10930) insioHe ce 
petit programme b partif de I'adresse 
$300 (*oit 768 en valour drici-mal«). 



Un born programme ne dait pas comporfer d'erreurs, mals il es1 
parfois utile (sinon mdispensobte) de pallier lies fouJefe de manipu- 
lation par une ratrfine de recuperation ef de rroitemen? des 
erreurj. 

L'exempta cl-dwsoos ne s'lnffresse qu'a la recuperation. Oioque 
cos doit ensuite etre trarte separemenr. 

Nature! I ement, une llgne de votre programme devra renvoyer a 
cette roottne. Par exemple : 13 ONERR GOTO 1G020. Notez que 
POKE 216,0 annul© I'instructton ef que POKE 216.128 la refablit. 



300 — 


68 


PLA 


10020 


301 


AS 


TAY 




302 


69 


PLA 




303 


A6 DF 


LDX $DF 




305 — 


9A 


TXS 


10030 


306 — 


48 


PHA 


10040 


307 


98 


TYA 




308 — 


48 


PHA 




309 — 


60 


RTS 


10050 



GUV-HACHETTE 



771,166 I POKE 772,223 : POKE 773,154 : POKE 
774 r 72 ! POKE 775,152 : POKE 776,72 : POKE 777,96 

10030 CALL 768 : ER = PEEK {222) 



(219) * 256 

1OO50 PRINT 'ADRESSE " PEEK (220) + PEEK {221 ; 



256 
■■■ 

38 



.A ANMlfU* G CRtUlfT. 



PRATIQUE 



des 



APPLE 

AUDELA OU BASIC AVEC I'ASSEIKIBIEUR 



Plus loin, 

et plus surement, 

avec 1'assembleur 



A. Andrieux et G. Creuze! ont bien trovaiJte- II 
est m£me probable quo ce deuxieme volume 
dt la PRATIQUE OES APPLE rieviendra une 
sorfe de bible de% uMlisafeurs. 
Non contents d'expfiquer. pas 6 pas, cammenl 
le langage Basic est implant* dans un ordina- 
te r, les auteure s'altadient i) monlrer le fonc- 
tionnement d'utilitalres cssembleur indispen- 
sables 6 loul progrommeur d^siront exploiter 
les diverse* resources de so machine. 
II n'est larnais Evident d'appe-ler une routine en 
assembleur 6 pariir d un programme &erll on 
Basic, Avec les commentolres deG, Creuze! el 
de A. Andrieux, de nombreux points devlen- 
neni plus clairs. 

II foul noter que I'ouvroge &e termine par un 
Ampersoft, utilitaife in£dit qui fera le bonheur 
des Lectrices et des Lecteurs, lout en les aidant 
6 mieux com prendre ce difficile, mob passion- 
rant langage, qu'esl ros-sembleur du 6502 et 
du65C02. 

Clement Renord, 




Si vous possedez un Apple lie ou un 
Apple //e.. offrez-vous notre disquette vfi 2 

VERSION DOS 3-3 ou ProDOS* 




Tous les programmes de 

TREMPLIN 
MICRO 



seront chez vous dans quelques jours, 

(La version ProDOS n'est utilisabte que si vous 
dispose* ctejA de ci* systeme Sexploitation) 



UTILISE2 NOTRE BULLETIN DE COMAAANDE, 
A LA FIN DE LA REVUE (vous pouvez, bien 
sOr/le recopter ou 1© photocopier). 



39 



TREMPLIN MICRO 



Repondez V1VI TOTO puis inHerrogez votre> Apple thiri 
por un PRINT AS ... RETURN, nuquel ii repondro : 
VIVE TOTO. 

Fas plus dilficilo que c*la I 

2^ RUN GENERAMlt 

Le true est an ne peut plus cocinu, mot» H Alonnero loul 
de mSme vo* amis non lniil4*. 

Si vous dote* uatre progrnmmp H hup Uqda ainil rAdi- 

(queS »lylfl I ) : 
POKE 214,255, nu! ne pourra le lister apres un pre- 
mier RUN, toutes l-« eommandes APPLESOFT se tront- 
lonrnanf pr&eis&nenil en un RUN doBOspiran*. 



Not** ouv le pfogfumme U-de»ou» n'eM qu'une d^inunsirolion, 
tut 4cran, (MV l« ptgijir, du blablafafa ci-conlr* er ci-d«»ua. A 
F*4co4*. <KJ danc un rtub %a pout taut de mim* t*fvi r NtSTO V 



10 TEXT s PRINT CHR* < 12> 3 CHft* <21 > 1 HOME 

20 T* = "i FOR I ■ 1 TO i&iT* = Tt ♦ ■ "j NEXT 

39 HTAB 101 PRINT "DES TRUCS POUR APPLE" ! PRINT T* 
48 UTA8 21 t PRINT T*r SDSUB 285 
58 POKE 34,3 

60 GOSUB 130! READ Q»: PRINT 0*: PRINT I OOSUB 168 
78 GOSUB 140: READ Rt! B0SU8 199: READ ft* ! PRINT ! PRINT | GOSUB 198: QOSU 
B 209 

80 GOSUB 138! READ G*x PRINT 0$: PRINT I GOSUB 168 

90 GOSUB 140s READ R*! GOSUB 190! READ <H: PRINT : GOSUB 198: READ ft* : PRI 

NT 1 GOSUB 199: GQSUB 288 J PRINT 
190 PRINT : READ R*: GOSUB 198: GOSUB 200! PRINT 
110 PRINT : READ ft* : GOSUB 190: GOSUB 290 
120 TEXT i HOME ! END 

138 HOME ! PRINT ! INVERSE a PRINT "QUESTION" j NORMAL t PRINT ; RETURN 

140 INVERSE 1 PRINT "REPQNSE" j NORMAL : PRINT : RETURN 

168 FOR I ■ 1 TO 19: FOR J = 1 TO 19 :X = PEEK <49289>: NEXT J 

178 FOR K ■ 1 TO 180 3 If ( PEEK (49249)) > 127 THEN RETURN 

108 NEXT Ks NEXT li RETURN 

198 FOR I = 1 TO LEN (Rt) : FOR J = 1 TO 5;X = PEEK (49288): NEXT : PRINT 

MID* <ft*,I,l);i NEXT x PRINT "": RETURN 
290 POKE 35,24: UTAB 23: PRINT " APPUYEZ SUR NMMPORTE QUELLE TOUCHE "t VT 

AB 19! POKE 35,20: CALL - 199i POKE - 16368,0: WAIT - 16394,128,127: 

POKE - 16368,0: POKE 35,24 
285 VTAB 23s PRINT " PQMME OUVERTE ABREGERA VGTRE ATTENTE' s VTAB 19; POKE 

35,28: RETURN 

210 DATA COMMENT EXECUTER UN INPUT tOU UN GET) EMiODE IMMED1AT ? 
228 DATA "EM LA FAISANT PRECEOER PAR POKE 1 1 B , 9 p , " i POKE 118,9; INPUT A* 

SPOKE 11B,8:GET A** 

238 DATA "COMMENT PROTEGER CASSEZ SOMMAI REMENT) UN PROGRAMME EN BASIC, EN T 
RANSFORMAMT LES COMMANDES DE L'APPLE EN AUTANT DE RUN!* 

248 DATA "TOUT SIMPLEMENT EN TAPANT SA PREMIERE LIGNE CDMME CEC1 : " ,"18 P 
OKE 214,255" ,"APRES OU01 VOUS 5ERE2 l JOUS-MEME PRIS AU P1E6E 1 " 

250 DATA "UN CALL-151 ,SU1VI DE *Dd:08 RETABL1RAIT LA SITUATION, MA 3 S ON NE 
PEUT JUSTEMENT PAS FA I RE DE CALL,,." 

260 DATA "MORAL I TE 1 SI UOUS UT1LISEZ CE STRATAGEME . . . SAUVEZ VDTRE PROGRAMM 
E SUR DISQUETTEAgAMT DE FA I RE UN PREMIER RUN" ■ 



Deux trues 
pour votre Apple 



t. INPUT EN MODI DIRECT 

Immanquable-menl, si vous fapex un 

fNPUT A$ RfTURN on mode direct, voire Apple pr*- 

fer-i vous r^pondra par un 

f ILLEGAL DIRECT ERROR . . agafant. 

II tit po«Sblo de m»ttrv I in a cette evident* mouvoiw 

vglont^ par un (udicleux 

POKE I' 18,0 ( INPUT AS ... RETURN 

ovck Jequol Ic *ympofhiquo point dinforrogoHon do 

I'SNPUT content b opporaitro. 



DEMONSTRATION 
SUR ECRAN 



OUY HACHETTE 



4D 



TREMPLIN MICRO 



FICHE 2 



TRANSFERT D'UN ECRAN DE 8ACOLONNES EN MEMOIRE AUXILIAIRE 

'nj E programme &n langags mochlne transffcre un 
n 6cron do 80 colonn&s fS403-S7D0) en memoire 
U auxiliairo (S400OS43DO et S440Q-S47D&). II tra- 
vdtlle de la meme mani&re que I© programme en Basic 
que vous trouvorez ou </©rso do colt© ficho. 

UTILISATION 

K AcHverto carte 80 colon nes par un PRINT CHRS(4|> ; "PR£T 

(rvotez que ie poinl -vfrgulo n eir pai mdiapentablc). 
2. PRINT CHR$(4) "BLOAD TRANS S0.LM" 
3* CAll 768 | memorisation J 
4. CAIAStSlretup&aliofl) 









■J. O 






SEC 






30 1 




8 L 1 


55 


CO 


STA 


SC055 




Oft A 

304 






1 C 


lift 


IC A 


$03 iC 




307 




A2 


44 




LDX 


£544 




n n r*\ 




06 


43 




* I* 
STX 


$43 




nnn 

33 8 






1 1 


J^"ft 

C3 




SC311 




•i .-■ i- 
JUL 




r, r-, 

8 D 


54 


CO 


C T A 

STA 


SC054 




31 1 




fttft 

20 


1 C 


ft ft 

03 




5031 C 




314 




A '1 


40 




L a 


: -.4'J 




1 « i 

J 16 






A ft 

43 




CT V 






JIB 




20 


1 1 


L3 


JSK 


SC31 1 




31 B 




60 






RT5 






31C 






00 




LDA 






31 E 




85 


3C 




STA 


rt j— 

?3C 




320 




A ft 


04 




LDX 


|"Li r | 1 

£504 




322 


1 


96 


3D 




C T V 

SIX 


53D 


[ 




' 


A ft. 

A2 


DO 




LUX 


k 5 DO 




326 




A A 

86 


ft r 

3E 




STX 


m f\ t~ 

S3E 


I 
( 

I 


328 




A ft 

A2 


07 




LDX 


£507 


32A 




O A 

H6 


ft B 

3F 




(I'M 

S I X 


f r 1 f 

S3r 


I 


32C 




85 


42 




STA 


S42 


I 






60 






n>Tir 

RTS 









1 H 






CLL 






330 




a D 


c c 


LO 


STA 


>L0D3 




Mil 

333 


■ 


20 


54 


n'ft 

03 




L- Off J 

50354 


I 


336 





A2 


44 




LDX 


£544 




33s 




86 


ft 

3D 




'S' f 'u' 

b 1 X 


f IPS 

5JD 


1 


JJA 




A2 


4 / 




LUX 


Pff JT 

; 1 1 




33C 




ft A 

oo 


ft c 

or 




C T V 

STX 


53r 


! 


ftft E 

33 c 


— 


/V 


i i 
1 I 


C3 


i c a 
JSn 


t^"fti i 
>C31 1 




III 

34 1 




19 






C LC 




i 


342 


- 


oD 


Li A 


CO 


b I A 




i 


3415 




20 


54 


ft ft 

03 


JSR 


50354 


i 


rj jf a 




A2 






LDX 


£$40 


i 


ft j » 

3-1 A 


— 


86 


ft r*i 
3D 






53D 






A 7 

t- 


'1 ! 






F141 


i 


34E 




86 


3F 




STX 


S3F 


i 


158 




23 


11 


C3 


J5R 


SC311 




353 




60 






RTS 




354 




A9 


00 




LDA 


£500 


i 


356 




85 


42 




STA 


542 


358 




85 


3C 




STA 


$3C 


i 


35A 




A2 


04 




LDX 


£$04 


i 


35C 




86 


43 




5TX 


$43 


35E 




A3 


DO 




LDX 


£$D0 


360 




86 


3E 




STX 


S3E 


i 


362 




60 






RTS 





MO : 38 8D 55 CO 2Q \C 03 A2 i* &6 *3 2U M C3 80 54 
CB 39 1C «3 A2 40 Si 43 » 1 1 G M 00 85 X A3 <U 
&630 A2 MA63E A2 07 efcSF B542 W 18 
SN : SD 55 « M 54 03 A3 4*86 3D A2 47 86 3F 20 1 1 
C31BBD54 C0»Si03A2^0S6 3DA?43 36 3F 20 II 
C3 £0 A9 00 B5 42 85 3C A2 04 66 43 A2 DO 66 3€ 60 



PETIT PROGRAMME DEMO 
POUR TRANSFERT DE 2 ECRAN5 

10 PRINT CHRS(4) "P«£3" : HOME : E = 8 
20 PRINT CHRS14) "6LOAD TRANSflfl.LM, 
30 FOR I * 1T0 1 10 : PB1NT ' AAAAAAAAAAAAAMA" | 

NEXT 
40 CALL 763: HOWE 
50 FORI = I TO 110 

: PRINT : VTAB 23 

FEU : NORMAL 
60 G£TW 

70 G05U8 150 : CALL 7*3 : G05UB 170 : REM WEW0 ECRAN 



REM MEMO CCRAN A 

PRINT "BBSBS6BB8B6BBBB8 : : NEXT 

INVERSE PHINT "CTRl-C POUR ARR£> 



no 

120 
I3Q 
140 
50 



HOME : PRINT "RETO0R ECRAN A" ; GEI RS I PRINT : 
VTAB 23 

CALL 815 : REM AFFICHE ECRAN A 

GET RS ' PRINT - HOME : PRINT "RFTOUR ECRAN B" : ! 

GET RS- PRINT : VTA* 23 

GOSUS ISO : CALL BIS : GOSH* 170 : REM AFFICHE 
ECRAN & 

GEIRS:IFASC|RS| <> 3 THEN B0 
HOME : END 

REM VALEUR5 POUR ECRAN B 



POKE 769, PJEK {769) + 
POKE 827. PtEK (827) + 
POKE 945. PttK 1*45} + 



171 



POKE 776, PEEK (776) + E 
POKE 823, PEEK (823) I E 
POKSS41 PEEK (841) ■ E 
RETURN 

REM RETABLIS5EMENT 0E5 VAIEUR5 

POKE 776.. PEEK (776) - E : POKE 789, P€EK |789> - E 

POKE 823, PEEK |823) - E : POKE 827, PEEK [827} - E 

POKE 841. PEEK (841) — E : POKE 845. PEEK 1*45} — E 

RETURN 



GUY-HACHETTE - TREMPLIN MICRO 



TRENPLIN MICRO 



FICHE 2 



10 

1Q 
30 
40 
50 

60 
70 
BO 
90 
100 
110 
120 
130 
MO 
ISO 
160 
170 
tBfl 
190 
200 
210 
220 
230 
2 JO 

250 
260 
270 
2&0 

300 
310 
320 

330 
340 
350 
360 

370 
38G 
390 

410 
420 
430 

440 
ibO 
460 
470 
480 
490 
500 
510 
520 
530 



REM 
REM 
REM 
REM 



EXEMPLE DE TRANSFERT D UN ECRAN 
DE m COLONNES EN MEMOIRF AUXII 1AIRE 



PRINT CHRS (4] TR£3" ! PRINT CHRJ f!2) 

REM UTILISATION DE LA ROUTINE SC31 1 (SUR APPLE lie ct Ik) 

POKE 769.32 : POKE 770.17 : POKE 771.195 ; POKE 772.96 
GOTO 360 

REM RETENUE (CARRY) MISE A 1 OU A 

POKE 768.56 : RETURN : REM CARRY = 1 (ECTWURE EN MEMOIRE AUXILIAIRE) 

POKE 768,24 , RETURN ; REM CARRY -0 (MEMOIRE AUXILIAJRE VERS MEMO I RE PRINCIPALE) 

RFM COPIF DE L'fiCftAN (MEMOIRE PRINCIPALE) A L'ADRE55E $4O0O (MEMOIRE AUXILIAIRE) 

POKE 60,0 . POKE 61.4 : POKE 62.208 : POKE 63,7 : POKE 66,0 : POKE 67,64 j CALL 768 

REM COPIE DE L 'ECRAN (MfMOIRE AUXII IAIRE) A L'AORESSE $4400 (MhMOIRE AUXILIAIRE) 

POKE — 16299.0 ■ POKE 60,0 ! POKE 61 .4 " PDKI- 67.208 ■ HUKb A:i I POKE 66.8 | POKE 67.68 . 
CALL 768 POKE — 16300,0 ; RETURN 

REM MEMOIRE AUXILIAIRE ($4000) VERS MEMOIRE PRINCIPALE ($400), PREMIERE PARTIE 
POKE 60,0 : POKE 61 ,64 : POKE 62,208 : POKE 63,67 : POKE 66,0 : POKE 67,4 j CALL 768 



REM MEMOIRE AUXILIAIRE ($4400) VERS MEMOIRE AUXILIAIRE ($4001. SECONOE PARTIE 

POKE — 16299.0 . POKE 60,0 . POKE 61 ,68 . POKE 62,208 : POKE 63.71 ; POKE 66,0 : POKE 67,4 
: CALL 768 : POKE 16300,0 : RETURN 



REM ECRAN DEMO REMPLI DE CHIFFRES POUR UN ESSAI DE TRANSf ERT 

FOR N = 1 TO 8 : A$ = AS + 0123456789" : NEXT : B$ a " »«^«h 
23 : PRINT AS ; : NEXT 



REM COPIE ECRAN EN MEMOIRE AUXILIAIRE 

GOSUB T50 : GOSUB 200 

REM FENETRE AU CENTRE DE LA PAGE 

VTAB 8 : FOR N = 1 TO 8 ; HTAB 25 : PRINT B$ : NEXT 

REM ATTENTE D'UNE TOUCHE 

GET C$ 

REM MEMOIRE AUXILIAIRE VERS ECRAN 



" : FOR I = 1 TO 



GOSUB 160 : GOSUB 280 
END 



ECRAN 80 COLONNES 

ll ne foul pas oublter que, en mode 
30 colonnes.. un caractere sur 
deux esl en memolre ecran {prin- 
cipals), tandi* quo I'aufre est on 
mdmokre oujollalre, 6 la mime 
adresse (de £400 a S7FG). 

POKE — 16299,0 pormet da lire en 
mdmofcre auKiliairo, 
POKE — 16300,0 (all jevehir en 
m£roaire principale. 



GUY-HACHFTTE — THEMPLIN MICRO 




AGE MACHINE 

SOUSTRACTION 



EXEMPLES 
SIMPLES 



A = 


Accumuloletif 


M = 


Memoir© 


C = 


tielenue (Carry) 



POURQUOI ? 



Pour souslrarre. on utilise ('instruction SBC du 6S02, alors que Ton fait appet d 
f'instnjction ADC pour odditionner Mais 16 nest pas to seule difference, Avonl 
d'execufer rin^rudion ADC. le blf C de la retenue doll etre mis h x£ro por un 
CLC Au contraire, dans le cas de lo souslroctian, C est lore* b 1 por I'Jriitrijc- 
tion SEC. 

Le microprocesseur utilise ('addition du complement 6 deux... pour soustraire. 
En fait, il seconlented'additkmner et, pour lui, sou*froire6de9n exr&lepos* II 
pref&re tofaliser {-6) + 9 ... cequi, pour nous, revient ay meme. 
Si, 6 Tissue dune *oustraction, an a C = 1 , ce!a signifie que AA (nombre b souslraire) 4talt plus petit que A 
(nombre mis dans I'occumulataur), Sr C = 0. tela prouve que le resulfat ©si negatif .. ou encore que Ion a bit 
un emprunl ou rang suivonJ, Dans cette page, I* caractereW signify RETURN. 

le but de notre mini-programme est de vous monfrer comment se foil la soustractton, et d* vous edairer sur 
Is* myst&res de ta retenue. Commencez par un CALL-T5I RETURN, puis lopez : 
*3W i AS 06 38 E5 OS BO 03 C6 07 38 ES 09 BO 02 C6 07 85 06 A 9 01 
Si mainlenont *ou* taper 3QGL, vous devez obtenir le listing d-de&sous, 



02 A9 00 85 18 60 E 



PETIT PROGRAMME DE DEMONSTRATION 



300 - 


AS 


06 


LDA 


$06 


to vtfleur de la Me-molr* SUfr #«l mf» dam A 


302 — 


3B 




SEC 




(tetenue forcoe b 1 


303 — 


ES 


08 


SBC 


$08 


Lc Mervioi re SOS #i1 lOUftrafte de A. 


305 - 


80 


03 


BCS 


S030A 


38 C = 1 04i wvie o $W 


307 — 


C6 


07 


DEC 


S07 


C = 9 •« on d#tr*mef?tfl lo Memoir* JOT d-u 1 


309 - 


38 




SEC 




C r«mta li 1 


• 30A — 


E5 


09 


SBC 


$09 


Im conttiw d* to toemolre *ff9 ei» w>u oif A 


r 30C - 


BO 


02 


BCS 


$0310 


SiC = I.IQlrfOttlff 


1 ME ~~ 


C6 


07 


DEC 


$07 


C s 0«f on dWKf*meitfe done: Memoire Sff7 de 1 


] 310 - 


35 


06 


STA 


$06 


L» i^iuhot dei 2 fduttrattleflt mi * fkim Wfc 


, 312 - 


A9 


01 


LDA 


£$01 


On place SI dens A 


, 314 — 


BO 


02 


BCS 


$0318 


5* la ratemia ail a 1, taul a 1318 


, 316 


A9 


00 


LDA 


£$00 


On plore S4 <ta*ii A 


, 318 - 


85 


IS 


STA 


$18 


Le corner** de A #rt Intent dens lo nwnoire 1 1 1 


1 31A — 


60 




RTS 




fleleur ew Be4 k 



DEMO 



4. 



'06 : 05 23 U6 10 - 
'300G 13 

-6.7UI 

0046— EF IF 
•18 H 

-06 : 00 OF FF FF i 

-6.7E 

0006 00 OP 

* MOO HI 
*6.7E 

0006 — 02 OD 
*lfi E 

*06_FP OF FF FF > 
-30OG 

•6.7 E 

0G06 01 0E 
- IB S 

*B6 : f F OF EF 09 S 
'6.7 l«J 

0006 — 10 Qh 

*18 E 
0018 — 01 



le programme place le conienu de la m*molr© $86 dons A, pub lui soustrait succoiaiiyemenit les contonu* de* 
memoirc* S^B el $09, Quand C m1 t» 0, If d*crim&nte la m^mcire SO? de I . Pour t#rminer. 1 1 Inscrtl la valeuf 
do C q Tadreftse $18. Si vous exi-culM *icaciement le« operations indiquees, vous consiolefei que : 

1. Vou* olimen>ez vous-m6mo 6.7,8,9 on lapont *06 ■ 05 20 06 \0 (notei que nous ov&ns ecrll la voletir $2WJ5 b 
I'enver*. comme il est normal de le fair©, poriie basse d'abofd)- "30QG correspond au RUN du Basic, Le r4soltat 
JIFEFeJt correct ($5005-06—16) = $>F EF. En voleursddclmales. celadonne 8197 - 22 - 8175. La reienue 
esi 6 \ puisque, lors de lo seconde soustraction, \\ n'y a pas eu debordemenf , 

2. Nouvelle* voleurs, mals cette fois la retenue est ft cof il y a eu debotdement (normal evec $FF = 255), $0F 0B 
— $FF — $f F = $D02 : exoct (3840 — 510 = 3330} 

3. Lo retenue eat ioujours 6 I. Lo premiAre sousiracfion ne provoquait pas de ddbor<iement a mats la seconds aui. 

4. Cette fois. pas de d^boniemtni. On retrouve bien la revenue 6 1 4 
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TREMPLIN MICRO 



USTAGE-CONTROLE 
D'UN FICH1ER "T" 



SUR ECRAN OU 
SUR IMPRIMANTE 



Si vous deslrez consulter ou £diter rapidement un fichler 'T' (EXEC, par exempt©), san& tenlr 
compte de la longueur des Hgnes ©T de la presentation, Inutile de vous compliqger ('existence : 
la routine ci-apres se revelera raplde et efflcace. 

NaTurellemeat. vous pourrlez la computer en prevoyant la saisie des parametres de votre 
imprfmante, mais elle ne tarderoil pes 6 fairu double ernploi qvet Je programme, beaucoup plus 
comcl&t. de ta page 27... cc qui n'est pas le but recherche. 



10 A$ = "" : REM LA VARIABLE AS DOIT ETRE ABSOLUMENT LA PREMIERE OU PROGRAMME. 

20 D$ = CHR$ (4) 

30 TEXT : PRINT CHR$ (12) • CHRS (21) : HOME 

40 INVERSE j PRINT LECTURE CONTROLE D'UN FICHIER (T) i NORMAL : POKE 34,2 

50 FOR I = 768 TO 789 : READ P ; POKE I, P ; NEXT 

60 VTAB 22 PRINT "-.......(?) POUR CATALOGUE " 

70 PRINT : VTAB 3 : INPUT 'TITRE A LISTER " . F$ , IF F$ - "" THEN 250 

80 IF F$ s T 1HEN HOME PRINT PRINT DS "CATALOG" GET F$ : PRINT HOME ■ GOTO 70 

90 IF ASC {FSJ -r 65 OR ASC (F$J > 90 THEN 70 

100 ONERR GOTO 220 

1 1 PRINT : PRINT D$ "VERIFY" FS 

1 20 PR J NT : VTAB 5 : CALL-958 : INPUT "(I) POUR IMFRIMANTE " ; 1$ 

130 PR J NT; HOME 

140 IF 1$ = "1" THEN PRINT DS "PR£1 * ; PRINT 

130 ONERR GOTO 220 J 

160 PRINT DS "OPEN FJ ".jXT ^TSST^SSm 

178 PRINT DS "READ" F$ N 

j 80 CALL 768 : T$ = MID$ (AS,1 } ! PRINT T$ 

190 GOTO 170 

200 PRINT D$ "CLOSE" 

210 PRINT ■ PRINT D$ "PR£0" : GET A$ : GOTO 250 

220 ER = PEEK (222) 

230 IF ER = 6 THEN PRINT : PRINT "FICHIER INEXISTANT" : GOTO 70 

240 IF ER = 5 THEN POKE 216,0 : GOTO 200 

250 TEXT : HOME : END 

260 DATA 162,0,32,111,253,160,2,138,145.105,200.169,0,145.105,200,169,2,145.105,138,96 



L"APPL£SOFT accepts lndlfloremm«nf 
C*» tilt ax tynfrnroK | 
PRINT D$ , "OPEN ' F*.".Dt"«l 
PRINT DS "OPEN"FS", 01" 
ma is celfe tolerance do>P otro utilise 
uvec cir compaction. 



Pourquoi la variable AS doit-elle etre la premiere du programme ? Jteponse qui 
n'expilique po$ tout, ma-is (ustifie est impercrtif : parte qu'H G9l ladle de lo relfouver, 
sans passer par urt Inufile programme de recherche (on soil porfolremenl comment 
Applesoft range ses variables}, 
te po-inteur $49 — $6A indique I'adre&e du d^bui d une zone ou le riescriptif cfe cKaque variable aceupe 7 octets, comme 
les JMccctnair&s. 

Le& deux premiers renfermenf le code ASCII de chacun de scs deux premier* caratteres... ei le tro.steme so longMur. 
Atosi, si la variable A$ = TOTO" on lira quelque part ces 7 octet* r 41 00 04 DD 87 90 00 ou $41 = code ASCII de "A", $80 
Indiqve une chaine de caract*r«. $04 >o longu*ur et DO 87 (87 DD} son adresse (bidon id). fatim page d 

■ ■■■■■■■■■■■■■■■■in ■ li mmm w p iiiiiMMmwMMMiwiiinnmMM > .»M M M.mim MmM niMHMn 
GUV-HACMiTTE 



POURQUOI ? 



FAISONS UN ESSAI, EN MODE DIRECT. 
TAPEZ AVEC MOI : 

NEW pour tout annuler 

(aauvvz d'abard v0tre programme If 

Q AA$ = "ESSAI " ! RETURN 
CALL-151 ; RETURN 
(FasWftitque vo opparoitro) 

|Q * 69 - 6A ... et RETURN 

(la r#pon» erf 0069 ■ &4 03) 

Q * 804 - 80A ... RETURN 

\$SV4 c'ffif 04 08 mm* inverses ef ffffA, t W 
MM + J/J. 

VOUS AUEZ LIRE ; 

0854 — 41 CI 05 DC 
0808 — 87 00 00 

— $41 = vakur ASCII de "A" (en h«xo) 

— SCI — valeur ASCII de "A" (toujours en 
hexa, mats dans un outre registre.., fti j© 
puis dire) 

— $05 = tangueur de "A$ H (Essol) 

— SDC&B7 =s adresse {0 r en vers) ou est 
memorise le mat 'ESSAI 



TAPEZ : 

Q 87DC . 87E2 ... RETURN mi voire grand 
ami des longues loir^es, voire tres 
cher Apple vous repond par : 

870C= 45 53 53 41 
B7E0 = 49 4C E8 

Canfr&lvx r e* *&flf Men (■* cades ASCII d*> 



J'ospfcrc avoir ete clair. .. mars je n'en 
suis poa &0r, wfsroff. 



SI la vorioblo n'a qu'un caraciere, 
second octet est figur* par 580. 



J? Dans le cos de notre progrqmmo (voir ci- 

ff deasous), I'odresae o£j se trouve la varia 

ble est cette du buffer ; $200. Vaua pensez 

ff sans doute que I'on joue ainai un bark tour 

H a I'Apple. e* voui over ration. Le pire. 

Jf c'e*i que cela marche 6 fous las, coups t 



Notre petite routine en langage machine ($300 -S315)* fall 
appel au sous- programme GETLNl ($FD6F} de I'Apple. A vral 
dire, il s'agii 16 d une ertlrie portieultAre de GETLN ($F06A), 
permeHant tout simplement de n* p*-- a<f ichor le prompts 
Vou-s savez peut-etre que GETLN gere one entr^e-Jigne ecrite a partir de I odroiso $200. Dans ce cos, le regis* 
tre X oonlSenl fa longueur do la ligne (le code du prompl e*l quant a lui intent a radr«te$33). 
Examinon? eft ditail le* 2! octets de notre micro-programme. 



300 — 


A2 00 


LDX 


€500 


la regis tra t k. mil t tare. 


302 — 


20 6F F0 


JSR 


$FD6F 


iflul +*n GfUNJ (qui mo effftctuar let 4/5* du trowll) . 


305 - 


AO 02 


LDY 


£$02 


L« reglifreYe*r mil 6 $2 


307 - 


8A 


TXA 




la «rttar*u oe X (lomgw»r de (o ligrte dbrftftUK par GifiHt) tit mil dam l occurmiloiwr A, 


308 — 


91 69 


STA 


($69). Y 


Cattt kn&gvtur ail ecrrt* a fadrHM frontanua dom 694A + Y [adrossago i ndlrecl I 


30A 


C8 


INY 




fai V+ l,uU3 


30 B — 


A9 00 


LDA 


£$00 


Auvrmilfllwwi 4 ml*6ff,. r 


30D — 


91 69 


STA 


{$69) r Y 


... at can * rflteur hi acrHt A 1'odram conrtewia da w SWA + Y,c'aM-ft-dlr> | j 


30F — 


C8 


INY 




■• v + |«iH4 


310 — 


A9 02 


LDA 


£$02 


AccumuWHwr mi» 4 S3- - (W3 - Jiartla fiaula da MwU t*l) 


312 — 


91 69 


STA 


($69),Y 


pu<**f-riHj™ if l adrwsa fr^-AA + T (<K1 + 4, »i VOVI pratoraX' 


314 — 


8A 


TXA 




On r*diorg« A flvft k CBflMnu du ra^lstra X 


315 — 


b0 


RTS 




icriour du Balk. 



De cette maniere votre Apple sail que la variable A$ (premiere du programme) a une longueur de 
qu*il doll la lire 6 partir de I'ddres^ft $200. ce qui le comble ^videmmerit de joio 1 

B Pour lire telle rouilne. l<Qper RUN. BESET. CALL 1*5, RfTURN m MOT. EniuHe, pout MMtrdu monH»ur. iap«r GTRl-C el RfTUKN, ou bi*n HtSET 



POUR EN SA VOIR PLUS 



TREMPLIN MICRO 




Un drive pour 1 500 F ? 

Banco ! 



Un drive pour Apple-lie a 1 500 F... de quoi renter 
r&veur ! Quant], en plus, I'objet est compact et fort joli, 
on se pose des questions. Pou riant, un prix aussi bas ne 
cache-t-il pas quelques mauvaises surprises ? Nous avons 
voulu en avoir le cceur net et, pour vous, nous avons teste 
I es drives Distar* Bien nous en a pris car, tout compte fait, 
le bilan est tres positif* Juge? plutdt.** 



Peut^tre ne I'avez-vous pas 
encore remarqu^ mais, & la 
redaction de Tremplin Micrq on 
sorail plutdt du genre publipho- 
bcs. Non par conviction, mais 
^implement parce que, a (ores de 
se faire £chauder p on fin it par 
recfouter I'eau Irmdf- 

GUY-HACHtTTE 



Ainsl, quand nous avons vu appa- 
railrc premiere* annonces 
pour lev drives compatible 
Apple, avons-nous adoptd une 
attitude plutOt r&enrtte. Un sur- 
saui de conscience pmfession- 
nelte 6tant intervenu au moment 
ou tfc* Lectcurs nous question- 



natent pour savoir ce qui I fallait 
penser des oftres all£chantes 
parties partnul dans la presse sp^- 
cialisee, nous nous somroes ru£s 
Chez 1'importateur, bien decides 
3 tester ces drives a I 500 F. 

Le matfh& de la micfo-irrforma- 
liqut' est encore tout jeune mais 
tres prometteur : i I attire done pas. 
ma I de gens dont la vocation 
pnrc i palp e^r d* 3 >Mir<' iU- sou*-, 
Resultat, certains important et 
iribuent des ordinateurs comme 
ik auraient import^ £t dtstribut? 
des chars a bceufs <1 y a quelques 
stales. Cest pourquoi nou* 
n'h^sitons pas & recommander a 
nos Lecteurs la plus grand? 

u 



m^fiance race & des propositions 
mirobolantes. 

PCM-lntbrmatique, qui assure ia 
distribution en France des drives 
Distar. se d£marqui» immediate* 
menl dp ses concurrents par un 
savoir-faire certain. Nous y avons 
irouve des gens competent*, tant 
c6\& technique que commercial, 
surs de leurs produits, L'expti- 
rience commensal* done plutdt 
bien, et e'est sur ce premier con~ 
tact ras^urant que nous nous som* 
me^i retrouv£s face a trots petifrb 
boftes conlenant respectivemenl 
un drive pour Apple* 1 1, un contrtV 
leur compatible fH un drive sp£- 
cialement &udte pour le IJ c. 

Premier avantage : 
la demi-haifteur 

Lcs lecteurs de disquettes com- 
mercialisms par Apple reposent 
sur une base Shugart, dont la 
reputation n'esl plus & faire* La 
technologic mise en ceuvre com- 
mence toutefois d accuser son 
3ge car depurs dix ans, bien des 
choses ont change, Les lecteurs 
Distar appartiennent a la Half 
Height Family, cc qui, en elair, 
signtfie qu'ils sont moitie moins 
hauts que tes autres. Cette reduc- 
tion de taille peut se lain* sans 
aucune concession a la quality el 
r&ulte ^implement d'une meil- 
Icurc integration des different* 
compu&ants ct dc I 'adoption d'un 
entrainement direct plutfit que 
par courroie. C'est la une solu- 
tion h laquette tout le monde 
viem progressivement, Apple en 
fctr, pirisque It- drive install* a 



t'Lni&icur mfcme du II c n'est hen 
d autre qu'un Half Height,, mi- 
niaturist. 

Livre dans ui> cortVet m&allique 
beige, le drive Distar tient done 
rnoiti£ rnoins de place qu*un 
module classique. Fini, done, les 
problimes d'encombrement et 
les moniteur^ trop haut perches I 
Quant aux bricoleurs et adeptes 
de claviers detachable*, ils pour- 
ront envisager de regrouper fe 
♦board* Apple, son alimentation 
et ses deux drives dans un unique 
coffref, plus fonctionnel que la 
configuration artuelle, avec ses 
nornbreux cables. 

L'umque commande accessible d 
I'unlisateur concerne la tradition- 
nelle trappe de verrouillage qui 
est, id, remplacfe par un court 
levier. Celui-ci assure cxaciement 
les m&mes foncttom : 

— positionnemeni correct de ta 
disquette sur le galet d'entratne- 

— verrouillage empfichant lout 
retrait intern pestif du disque, le 
simple fait d'actionner ce levier 
provoquant imrn&jratement le 
retrait des t£tes de la surface du 
disque. 

Inutile de dire que nous n'avons 
pas resiste a la tentatlon d'unc 
petite visile a hnterieur de la 
bolie. Le d£roontage r simple, 
nous a perm i 5 de d&rouvrir un 
circuit principal tffcj propre, com- 
plete par un circuit de contrftlc 
du moteur tr&s accessible. Les cir- 
cuits *crttlques» (ceux qui, statist^ 
quement, rendent 1'Ame les pre- 
miers en cas de panne ou de 
tausse manceuvre) ne sont pas 



D&l 1 3 


Sur rum r ii If r Appll 


Sur cuntrftliur compitibli 


U rive ApplD 


UrM Uiitar 


Drm Applt 


Drm Dffiar 


ninnl*ie<in d'uft 
MbMp. 2 wcl 1 


30" 


31" 


sir 


3t" 


LOAD prnqrammi Apptaaff 
13? wctKirO 


i 11 




w 


9" 


SAVE p'Oflrammp Applewtl 


13" 




\fr 


13" 


Lactam kN^T 
1lllNlvJuiKblel^B Mcsmiri) 


vn~ 


nr 


124" 




Ecrliu?t1kJiierT 






Vlfl" 


riir 



Carte controleur : 
compatible, mais«. 

la socttto* PGM-lnfomiatfque 
distrihue ggalement des cartes 
enntrfiieur* compatibles, vipn- 
does 500 F etiYiron. Nous 
awns teste t'une d'entre e//es. 
Un pfemier examen ne tekx 
autun (kiute sur /'origine de Id 
carte : identique av eonttxtieur 
Apple, do tracd des . pfcfe* 
jusqu'au choix des compo- 
Aa«<s, elle arriw* en droite 
ligne de Pusine d'un sous- 
iraitant qui, prodoisant pour 
Cuppertino, en profile pour 
mondlr si*s fins de mois avec 
sa production personnelie, 
sans marque (la sfrigrapliie 
Apple est absented 
Nous avons teste ceffe carte 
jvec des drives Apple et avec 
le drive Distar ; I 'initialisation 
d'un disquc ct les operations 
de lecture/ecriture prennent le 
m&me temps qu 'avec le con* 
trilevr Apple, Par cortfre, dfe 
que I'on rrava///p sur des 
fichiers Texfc, on mnarque 
des differences significatSves, 
voire spectacufoift** La lec- 
ture de 1000 variables num& 
riques m fichier 7 f?5 sec- 
teurs) n6cetoite 1,12 minute 
sur carte Apple el 7,27 sur 
art* tamfwtihh* Fn fcriturp. 
Apple creuse t'£vart : 38 
seconder confrr 1 t 10 minute 
pour le compatible! Explica- 
tion ; /es temps d'arr&t entre 
chaque wrcteur sont plus 
longs. 

Au ddpart, nous pensions que 
ce ph&nomPne htalt do A un 
probfente logiciel sur /es 
£PROM 5 et 6; un exarrwi 
plus approfondi novt a mon- 
tr$ que deuM f^sj>fance> 
avaient des valeurs difitrentes 
(IQQOKd'ikartt). 

$* vous devez gcrire sowent 
des fichiers de donn^es, le 
contrdleur Apple se r^vAfe 
done plus pekormant et justi* 
fiera peot-£tre les quetques 
centaines de franc* supple^ 
mentaires. 



4? 



TffCWPUN MiCltO 



Exclusif : 
les 3,5 pouces 
Mac & Apple-lie 
arrivenf ! 



Les utilisateun de Macintosh 
d^plorent souvcnt le cote 
'gritte-pain* de U machine 
qui, utitis&e en sola, a la 
ficheute habitude cf r $jectvr 
ses disques d&s qu'elle n r y 
trouw plus la place suifisantv 
rwnyr stocker ses innombra- 
Wes *pd$ses»* Tr&s vite f un 
drive exteme apparatt done 
indispensable. Et pour /'ins- 
tant, le drive Apple reste la 
seule alternative. 

Au moment ou nous termh 
nons ce dossier, PCM- 
hformatique teste des driven 
3,5 pouces. compatibles Mac. 
L'un d'eox pcrmet de stocker, 
sur une simple disquette Mac. 
1J megaoctet ! Le rtf grille* 
pam do Mac derail enflti 
nholu, de fa^on plus gl&gante 
et moins ruincuse qu'avcc un 
rfisque dur. Et on pourratt 
peut^tre alnrs pKpfr-er pou- 
voir enfin travailler was Mac- 
Wtite et MaoJWrrf, en version 
comptdte, ttH)te* typographies 
possibles, avec plus de 900 K 
disponiblvs pour /e« fichieib ! 
Mac deviendrait capable de 
tmir ses pranresses et d'impri* 
mer, par exempte, plus de 20 
pages A la suite... 
U famille Apple-ll n'est pas 
oubliee non plus et on trou- 
vera bient&t de nombteuses 
unites de disquettes compati- 
bles, en standard 3,5 pouces. 
La plupart semnt capable* de 
stocicer jusqu'A 500 K par 
face, ce qui redonnera du 
tonus au bon v/eux tt e, 
Vous te voyex, $a bouge 
beaoc&up dans ce domaine, 
/e? tests sont en cours chez 
plusievrs importateun... 

Souhaitons qu'ils soient poss- 
tifs et quo t r materiel arrive 
fomtdt dans les vitrines ! 



soude^s,, ma is montiS sur sup- 
po?r lis tfvenluelles interven- 
tions techniques seronr ainsi 
quasi Instantanges, iMtant a J r u!i- 
lisateur une longue immobilisa- 
tion de son mat^rrel, 

poids, \e* driven Distar n'ont 
rk?n a envier aux autres er pfcsent 
prfes do 2 kg, C'e«4 tr& bien amsi, 
car il s'agit d'un gage de fiabilrte. 
Le lourd volant d'inertle en metal 
injecte est le garani d'une vftfSSC 
de rotation parfertement stable, 
condition indispensable pour un 
transfer! fiabledes donnees. Sou- 
mis a un contrftle togiciel de la 
vitesse de rotation, le drive DlSt&r 
sest rfr&te rneJlleur que des dri- 
ves Appte, autune variation sen- 
sible n'^tant decetable, En outre,. 
I'ajustement de la vitesse peul, en 
cas de besoln, <^Tne effectu* par 
un mlniistutt* potHitk>m^tre. Par 
centre, si vous ftes bficoleur P ne 
vous flez pas i la piste Ktrohmoo- 
pique imprim^e sur le votarvt 
d'inertle : cgs driven compatibles 
pt'uvKni ^tre utilises sui diverts 
machines,, A des. vitesses de rota- 
rjon dil¥^rentGS ; pour Apple, le 
standard est fixe A 200 tours/mi^ 
nulc, rvorme facilemenl LontrOld- 
ble par certains uti If [aires du mar- 
che (Copy II Plus et Dn$ Diversi, 
entre autres). 

La vitesse de rotation est une 
chose... le transfer! des data en 
est une autre. Nous avons soumis 
le drive Distar i differents tests 



sp^trialement concoct^s et nous 
avons t rouv^ sens iblemenl les 
mgrnes mesures que sur les dri- 
ves Apple. Certains reveodeurs 
affirment que les Half Size soni 
plus rapides... e'est faux : pOW* 
quoi Utilizer de tels arguments 
quand te prix. la taillr ft les per- 
formance* replies constituent 
autant d 'arguments de vwte... 
v^ridiques '< 

Un petit coup d'oeil sur le labJeau 
public sur cette page vous per- 
mettra de vous faire une fd£e plus 
precise de refftcacit^ du drive 
Distar. 



On adopte 



r 



Parfaitemenl compatible Apple, 
le drive Distar pcot etrr monte a 
tout moment sur nlmporte 
quelle carte conlr6leur Apple, 
en plus ou A la place d'un 
modelc de la marque. Mottte 
moins cher, mollis moins haut, 
moins bruy*int mah aussi perfor- 
mant que les modules designed 
in Cuppertino, le drive Distar 
devrait interesser fous les utitisa 
teurs d'Appte-ll et He, car il 
consilium un excellent thoix* 
larif alldchant nMmplique 
aurune concision sur la quafile 
ou le* performances el r'est la 
un point essentiel a nos veux. La 
pub etail prornelteuse, les pro- 
messes somt tenues** 



Un drive compatible pour TApple-II c 



— Un thivt pmtr U c, ww> 

— {ha mtmiWi A t 900 ou i 
2 900 F t 

— Pour quoi* quelle est done in diff«i 
tencc f 

...Telle est, justement, la ques- 
tion A laquelle nous avons voulu 
(tipondre art tenant le drive Dis- 
tar, propose en versiort it c ! Pour 
ce qui est de la technique, reli%e7 
le test ci<ontre. Toot ce qui est 
dit sur drive du II e est vatabfc 
poor celui du II c La seule ditt& 
rence mat&iette conceme le 



cible de racconiement, qui est 
id au standard II c (blinds et non 
en nappe) et qui se monte sur la 
prise DB 19 du portable Apple, 
sans qo'il soit besnin d'utiliser le 
moindre adaptateur. 

Un peu plus petit que le drive 
Apple, le Distar en version II c a 
exactement les mfimes perfor- 
mances. II est m revanche, plus 
bruyant et moins esth4ilque P „ 
mais coQte 1 000 F de moins. La 
s&curihi des donnees £tant assu- 
me, A vous de voir si le plaisir de 
vos yeux justifie la difference... 



GUV-HACHETTE 



DOS 3,3 etFroDOS* 



APPLE He et tk 



q E programme forme un rout, merit >l 
— ' est compatible avec le programme 
HtSTOGRAMME paru dans le numero 1 
de Tremplin Micro, donl il peul repren- 



Vos chiffres 
valent bien 
un fromage ! 



dre les fichiers, a condition de modifier leurs litres en les falsonl suivre de la mention «Hh (taper, 
por example, RENAME HISTO.l , HISTCUH, pour effectuer cette modificalion)* 
A rvoter que DIAGRAMME (ou CHIFFRES EN ROND... vous avez le choix des mots ! ) n'accepte que 10 
valeurs. contre \2 pour HISTOGRAMME, Quand cetle limits est depassee, le programme ne retienl 
que les 10 meilleures valeurs, Ceci dil, vous etes libre de modifier les paromelres, mais ne vous 
oitendez pas a obtenir de tres bons realtors, 
le graphisme de ( Apple ayoni lui aussi 



ses limites 



COMPOSITION 



1. DIAGRAMME (BASIC) 

2. D I AIM (LANG AGE MACHINE} 

3. DIA.CARAC (LANG AGE MACHINE) 




49 



TREMPUN MICRO 



6000- 


A6 


22 


LDX 


• 22 


6875- 


68 






PLA 




6002- 


8A 




TXA 




6076- 


AS 






TAY 




6883- 


85 


1C 


STA 


*JC 


6077- 


6S 






PLA 




6005- 


20 


24 FC 


JSR 


• FC24 


6078- 


A2 


DF 




LDX 


£»DF 


6668- 




80 


LDY 


£•96 


60 7A- 


BA 






TSX 




60 0A- 


A5 


28 


LDA 


*28 


607B- 


48 






PHA 




A00C- 


05 


2A 


STA 


*2A 


607C- 


95 






TYA 




66 8 E- 


AS 


29 


LDA 


• 29 


607D- 


48 






PHA 




60 10- 


29 


03 


AND 


£*83 


60 7E- 


68 






RTS 




60 1 2- 


03 


E6 


ORA 


• E6 


6&7F- 


EA 






NOP 




60 1 4- 


85 


28 


STA 


• 26 


6888- 


EA 






NOP 




40 16- 


61 


28 


LDA 


<»28> ,Y 


6081 - 


EA 






NOP 




6018- 


C9 


20 


rr-ip 


f*20 


6082- 


EA 






NOP 




681A- 


ae 


05 


BCS 


♦6021 


6883- 


EA 






NOP 




601C- 


69 


C0 


ADC 


£*ce 


6084- 


EA 






NOP 




601E- 


CE 


52 68 


DEC 


♦ 6052 


6085- 


AE 


7F 


66 


LDX 


•607F 


6021- 


C9 


68 


cr ir 


e*68 


6088- 


AC 


80 


68 


LDY 


•6888 


6023- 


BG 


85 


8CS 


•60 2A 


6896- 


AD 


81 


68 


LDA 


♦ 6601 


60 25- 


69 


80 


ADC 


£•80 


60SE- 


29 


3/ 


F4 


JSR 


• F457 


60 27- 


CE 


52 68 


DEC 


♦ 6852 


6691 - 


AD 


82 


60 


LDA 


•6682 


60 2A- 


C9 


B0 


U ir 


£•88 


6894- 


AE 


S3 


68 


LDX 


• 60SS 


602C- 


B0 


85 


BCS 


*6833 


6097- 


AC 


84 


60 


LDY 


•6884 


602E- 


69 


48 


ADC 


£•48 


609A- 


20 


3A 


r s 


JSR 


♦ F53A 


6030- 


CE 


52 60 


DEC 


•6852 


609D- 


EA 






NOP 




6033- 


C9 


A0 


CMP 


£*A0 


609E- 


A2 


03 




LDX 


£•03 


6035- 


98 


31 


BCC 


•6868 


60A0- 


20 


EC 


F6 


JSR 


• F6EC 


6037- 


2? 


7F 


AND 


£»7F 


60A3- 


AE 


B2 




LDX 


• 6882 


6039- 


18 




CLC 




60A6- 


AC 


83 


68 


LDY 


•6083 


603A- 


2A 




ROL 




60A9- 


AD 


84 


68 


LDA 


• 6894 


6036- 


2A 




ROL 




60AC- 


28 


57 


F4 


JSR 


•F<357 


603C- 


2A 




ROL 




68AF- 


68 






RTS 




603D- 


48 




PHA 

















683E- 


2A 






ROL 




f CALL 


















683F- 


29 


63 




AND 


£•83 


-151 














6041- 


69 


68 




ORA 


£•68 








DIA.I M 


6043- 


8D 


50 


68 


STA 


•6058 


*6008 


. 68B0 














6846- 


68 


PLA 




















6047- 


29 


F8 




AND 


£*F8 


6806- 


A6 


22 


8A 


95 


1C 


26 


24 


FC 


6849- 


8D 


4F 


68 


STA 


•684F 


6088- 


A0 


60 


A5 


28 


85 


2A 


A5 


29 


684C- 


A2 


80 




LDX 


£•08 


6810- 


29 


63 


05 


E6 


85 


26 


Bl 


28 


684E- 


B Li 


80 


60 


LDA 


•6886 ,X 


60 1 8- 


C9 


20 


B8 


05 


69 


L P 


CE 


52 


6051 - 


49 


86 




EOR 


£•00 


6020- 


60 


C9 


60 


80 


85 


69 


80 


CE 


6053- 


1 1 


2A 




ORA 


<*2A) ,Y 


6028- 


52 


60 


C9 


86 


88 


85 


69 


00 


6055- 


91 


2A 




STA 


C*2A> ,Y 


60 30- 


CE 


52 


68 


C9 


A8 


98 


31 


29 


6057- 


1 8 






CLC 


6038- 


7F 


1 8 


2A 


2A 


2A 


48 


2A 


29 


6058- 


A5 


2B 




LDA 


• 28 


6840- 


03 


89 


60 


8D 


56 


66 


68 


29 


685A- 


69 


04 




ADC 


£•04 


6048- 


F8 


8D 


4F 


68 


A2 


66 


BD 


80 


605C- 


85 


2B 




STA 


• 28 


6050- 


68 


49 


08 


i i 


2A 


91 


2A 


18 


605E- 


E8 






I NX 




6858- 


A5 


2B 


69 


04 


85 


26 


E8 


E8 


60SF- 


E6 


08 




CPX 


£•68 


6868- 


88 


90 


EB 


A9 


00 


SD 


52 


66 


6061- 


98 


EB 




BCC 


• 604E 


6668- 


cs 


C4 


21 


90 


9D 


A6 


1C 


E8 


6863- 


A9 


00 




LDA 


£•80 


6870- 


E4 


23 


98 


BE 


6 


68 


AS 


68 


6865- 


6D 


52 


66 


STA 


•6052 


6078- 


A2 


DF 


BA 


48 


98 


48 


60 


EA 


6868- 


C8 






I NY 




6080- 


EA 


EA 


EA 


EA 


EA 


AE 


7F 


68 


6869- 


C4 


21 




CPY 


•21 


6088- 


AC 


80 


60 


AD 


Bl 


68 


20 


57 


6868- 


96 


9D 




BCC 


• 60 0A 


60 90- 


F4 


AD 82 


68 


AE 


S3 


6 


AC 


68 6D- 


Ai 


1C 




LDX 


• J C 


6098- 


84 


60 


28 


3A 


F5 


EA 


A2 


03 


686F- 


EB 






I NX 




60A0- 


28 


EC F6 


AE 


82 


68 


AC 


83 


6078- 


E4 


23 




CPX 


• 23 


68A8- 


60 


AD 64 


68 


28 


57 


F4 


60 


6872- 




SE 




sec 


• 6002 


BSAVE DIA.LMV, ASADOO. LSBff 








6674- 


68 






RTS 























GUY HACHETTE 



DIA.LM 



TROIS 



W30a.6074 (qui per- 
met d'ecrire or* page 
graphlaus, en utHisant la fonlo de coractfrres 
Dl A CAR AC). Cetle routine doil loul a BEAGLE BROS 
(qui diffuMF l'«ce»enr APPif MECHANIC dans le 
monde enli**"), Voos la trouverei dan* FAIRE.LM de 
Tremplln Micro n°1 . 

[y] 4075.6071 petite routine recommnndee avant le 



ment dc-i lirrtrurs. 



ryi 6A7F.60 Af qui trace le diagramme, moift utilise un< 
mission d* donn^es rrop lenle pour *lre effieace. 



10MEM prorige a \o ± 
tal& la pag* qrnphique ™ 
HGR2, ot le* deux routines 
an langage machine. 



POKE 2<M3 r 233 fraos 
lorms le rurseur de 
I' Apple f/c en SOULIGNE 
(*an» efle* aur Wo J; 



II taut bien prevoir I' 
aenco d« d«rin«s 
momolfo. 



Deu* categories 
diagrammed. 




le 

26 
38 

se 

78 

Be 

98 
168 
118 
126 

138 
143 

1 W 

148 

!?8 
188 

198 



DIAGRAMME (BASIC) 

LOMEM: 25*06 

TEXT i PRINT CHR* (12); CHR* (21): HOME 
DIM Z(12) t TE*<l2>,CC!2> ,X2( 12) ,Y2( 12) ,A<12) ,T1S(2) 
HGR2 i TEXT ID* = CHR» (4) 
R ~ 85tPI = 9. 1415*3 If! - 1 sRQ - 1 :X1 - 279 - RiYl - 
192 - RiCA = 24574 :A0 - 24783 ;AE - 24789i GOfiUB 488 

REM •••»«■»**»>»»*******• ********* 
REM *»* M E N U ■*» 

REM «****»•*•* • **••#***•«*••*«**• 



t 



HOME sT* * ' 
FOR I ■ 3 TO 5: 
TAB 4: HTAB 1 3 1 
FOR 1 = I TO 18 



INVERSE : RESTORE 
VTA8 1: HTAB 12: PRINT T»: NEXT : V 
PRINT "CHIFFRES EN ROND" : NORMAL 
rRE e I t IF 1 > 9 THEN RE = B 



- 938: CALL - 198: HTAB 
POKE 2843,223s GET R* 
ASC (*?") THEN 
GET R*i PRINT i 



256 



228 
238 
248 



VTA8 7 + tl HTAB 9; READ T* : PRINT RE; 
: TEXT 

VTAB I 9 : CALL 

VQTRE CHOIX •} 
RE ■ ASC (R*) 1 IF RE 

E : PRINT D* B CATALOG 

IF RE - 48 THEN 2188 
RE = RE - 48: IF RE < 
158 

IF (RE ■ 6 

B 18; CALL 

R I - 1 TO 

IF N < > 

IF RE = 4 



•;T4$ NEXT 
13i PRINT " 



PRINT t 
SOTO 118 



HOM 



OR RE ) 9 THEN PRINT 1 GOTO 



OR RE = 8> AND OH - 8 THEN VTAB 22s HTA 
- l?Si PRINT "PAGE GRAPH] QUE VIERGE* : FO 
1586» NEXT 1 GOTO 158 
i AND 2(1) t > 8 THEN 228 
OR RE ~ 7 THEN VTAB 22s HTAB 3: CALL - 



FDR 



198l PRINT "IL N'Y A PAS DE D0NNEE5 EN MEM01RE 

1 s I TO 1388: NEXT : GOTO 158 
ON RE GOTO 1518,1788,1920,340,248,1338,1428,238,278 

X = 137: GOTO 1248 
VTAB 21: HTAB It INVERSE : PRINT "L"p NORMAL s PRI 
NT MGNES TRACANTES DU • i s INVERSE : PRINT NOR 



11 



TREMPLIN MICRO 



258 
268 
278 



2ee 

2?8 
300 
318 
320 
338 
348 
358 

36B 
378 

388 
399 



-509 
410 
428 

438 
440 
458 
460 
478 
488 
498 
588 
518 
528 

538 
548 
550 
568 
578 

588 
598 
688 
618 
628 
638 
648 
658 



MAL : PRINT "DDE ALPHABET I QUE " ; ( GET R* : 1 F R* = * L 

■ THEN M = i 

If R* = 'C" THEN M = 2 

GOTO 150 

VTAB 21 1 HTAB 13 £ IWERSE t PRINT "ROTATION" t : NORM 
AL 3 PRINT * 1-368 > ";i INPUT "";R*j IF <R*> 
I AND VAL f»J < 361 THEN RO " VAL ^ R* V t RM ■ 8 
GOTO 3 59 

I 

REN ♦•»««##■#«#§••**«•##•••«*•**»« 

REM *** PREPARATION ♦ *« 

REN •*#*###*»-#*»•«*»-■+*#*##*#***** 



IF GH < > i THEN 388 

VTAB 22: HTAB E: PRINT '<0> POUR EFFACER LE GRAPH I Q 
UE ACTUEL GET R*i IF R$ = *0" THEN 410 
IF R* < > "N" THEN 130 

POKE 49237,8; POKE 49234,8: POKE 49239,8; POKE 4923 
2,8: CALL - 198s GET R*: PRINT s TEXT : GOTO 158 
TR = 8 : FOR I = 1 TON - 1 : IF Z «" I i ' = Z ■ T * I 1 TH 
EN 488 

T = Ztl) sZ(I> - ZCI + HtZd ♦ I) = T sT = C< I > :C( l> 
= C<1 * 1) ;CC| + I) = T:T = 8:L* = TE*< I > sTE*< 1 ) - T 
E*(I ♦ DtTEffl ♦ t) » L*:L* = " " :TR = 1 
NEXT : IF TR = 1 THEN 388 

IF RM = THEN RO = PI / 4 - RO / 3A8 • PI :RM = I 

T = s FOR I = 1 TO N:C<I) - VAL < MID« <" 123457612 
3* , 1 , 1 > i jT ■ T ♦ Z<l)s NEXT 
FOR 1 - 1 TO NiA<l) ■ Z<I) / T # PI; NEXT 

REM **#**##•**»» »*»##♦♦**#*«***#»* 

REM #♦* TRACE DU DlAGfiAMME *** 
REM •»**»*• **«4. *..*.*»#. ..•#»«#«♦ 

HCOL0R= 8 : HPLOT 0,8: CALL - 3882; HGR2 
EOR I = I TO N 
A = B 

B ■ B + A* I ) * 2 ; POKE AD,Xlt POKE AD + f ( 8t POKE AD 
♦ 2,YI 

FOR J = A TO 8 STEP 0.91 

HCOLQR= C(l) 
X ■ XI ♦ R # COS CJ - RO' 1 
Y = Yl + R * SIN <J - RO) 

POKE AD + 3,X - INT (X / 256) * 256: POKE AD + 4, 

INT (X / 256)i POKE AD + S,Yl CALL 24709 

NEXT 

SI = (A * B) / 2 - RO 
X2< I) - XI ♦ R / I .3 * COS <SI> 
Y2< I > = Yl + R / 1 .3 * SIN <S1) 
NEXT : REM FACULT.iGOTO 760 

REM •**•##»#*»•#»#«»#•**##•»•*##*# 

REM **» TABLE DE CARACTERES «** 



j Jouez Qvac ceMe valour 
™ pour ©vlt^r certain* effeH 
do mpirggc. Nfos examples 
u-hltaalent 350. 



a S'i I n'y a pOft d« diagram 
▼ tnm dans la pogo graph i- 
que, II est unutlle de I'offacar 

^Afffche ia page HOW 
moLs sans cMoComenl, 

-tj des volevrs |lo plus 
~ flrande en t§fe). 
to rri povrrail *tre facoltalSF. 
II iufflfait d'ajoutef unt liana 
375 posant la question sur le 



^ Melange 



Hacuiablo) do* 

couleun. 
<> Coicul da ('angle, 



♦ tffacernorvt prdalafole da 
la page {CALl-3at3), puis 
apportion de \q page vterge 
avec HD«2 



trace> utili«a k 
*607F_$6GAF da 
(page 50), 



routine 
DIALM 



[ADJ = 24703 

Los danrxie* sonf 

aux adre=ia*s $607F-$60B4 



GUV-HACHETT1 



Quartd Bl - 1, Us* sou* ^ 
programme* ton! d#ja 
en place. On foil t'*conomi© 
de c«*tfl variable <pr£we 
pour vn oulro ddve-lopp©- 
rn«nt cki programme) av«< 
un GOTO 760 6 la luile tto 
NfXTIda ialbgneAW. 



Lignes Iro^ont^s 
lerrr»s-cad«4. 



Lignn de lexte. 



In tent*! n>nl *crrti nor 
mnUpmiwil &ur to paQB (fcTrvt- 
tlht*. pulwju* fan «&r en 
monW g*aphiqw| T»irt de 
I Apple puis iromffrren nn 
HGM par la routine 
DLA.1M. cheque caroci**e 
4lonr r«mplac* 

MA.CARAC 



por 

la 



Lcn 

fan fa 



D^gagomant corr* pour ^ 
to loll re-code , 



666 
670 
638 
690 
709 
718 
728 
739 
748 
730 
768 
778 



798 
880 
810 
828 
838 
848 
858 
868 
870 



REM «#»*•*#•*#*»**»»#»«*•■**»***** 

IF BL = 1 THEN 766 

PRINT : PRINT W8L0AD DIA.LM,A"CA 

PRINT D* M BLOAD DIA.CARAC ,A*6IB8" sBL = ll RETURN 

REM **#**#****«*#«*******•*******• 

REM »** AFFICHAGE DES T1TRE5 

REM ****************************** 



910 
928 
938 
948 
958 
960 
970 
988 

1 86y 
1818 
1828 

1830 
3848 
1858 
1068 
1078 
1880 
1890 
1180 
1118 
1128 
1138 
1148 
1130 

1168 
1178 



HONE : FOR i - 1 TO 2 

VTAB Is HTAB ( 42 - LEN <TI*<I>» / 

PRINT TI*< I > i NEXT i CALL CA: HOME ; 

t 

HCQLOR* 6s ON M SOTO 868 t t810 

t 

REM ****#»•••*#**»•*#••*»***«»*** 

REM LIGNES TRACANTES •*« 

REM «*»#*****»#**#****»*»***»***•* 



VTAB S:YC = 20 
FOR I m 1 TO NiK ■ 208 
FOR J » 1 TO N 
IF Y2CJJ > - K THEN 928 
IF Y2CJ> = 8 THEN 92B 
K - Y2(J)iL ■ J 

NEXT Ji PRINT 
Y2(L> - 8: PRINT TE*<L)sYC 
HPLOT 3 + LEN <T£*(L>> * 
NEXT Is CALL 24576: GOTO 



PRINT 5 PRINT 



= YC * 16 
7.YC TO X2<L),K 
S240 



REM ****************************** 

REM *** LETTRES-COOES #*» 

REM ****************************** 



J . ASC CA") - 1 s PRINT 

FOR I » 1 t8 Ml PRINT 

PRINT CHR* U * I>" = a TE«<D 
CV = PEEK (37) • 1 

VTAB Y2U) / 8 ♦ I J HTAB X2(l) / 
Y2(I) = INT <Y2<1> / 8) * B + 2 
X2(I) = INT (X2CD / 7> * 7 * 3 



7 + 1 



REN *»**#♦•#••»*¥«*#**#*••***••«•• 

REM EMPLACEMENT OU CODE •** 

REM »##**«*»«**#••*#****•*■•***■•• 



: 



HCOL0R= Bs IF C(l) = 3 THEN HCOLOR* 4 
FOR K ■ 1 TO 16 

HPLOT X2<I) - B,Y2<I) - 8 + K TO X2< I > ♦ 8,Y2<I) - 

e * k 

NEXT K 

PRINT CHR* < J ♦ I ) f HTAB 1 J VTAB CV (StlJtepQ99 54J 



S3 



TRfeMPUN MICRO 



nee 

1196 
1200 
1210 
1220 
1236 
1240 
1298 
268 

1278 
1286 
1290 
1380 
1310 
1328 
1330 

1348 

1358 
1368 

1370 
1380 
1390 
1480 
1418 
1428 

1430 

1448 
1450 



1460 l 
1470 
1480 
1490 
1508 
1510 



1528 
1538 

1548 

1550 
1568 
1578 
1560 



NEXT I : CALL CA 

t 

REM *+***#*##*#»**#******»**« ***** 

REM »*** EDITION 

REM »**»***#**#•*##*#*****#*****## 

9 
m 

GH - liX = PEEK < - 16394)! IF X < 128 THEN 1240 
POKE - 16368,8 

IF X - 137 THEN PR£ 1: PRINT CHR* (9) "62" J PRINT 
I PRE 

PR£ 0: GOTO 118 

i 

REM »#*«#»##*#********#«*#******## 
REM *** MEMO Fl CHIEF PAGE2 *»» 
REM *****+*«*»*»•*•*•#*********»■■» 

i 

'/TAB 22; HTA0 13: INPUT "TITRE ? H { FG* : IF FG* ■ * 
H THEN 150 

IF FG* - ■?" THEN R* = 
FG*! GOTO 160 

IF ASC (FG*) 65 OR ASC <FG*> > 90 THEN 1338 
FG* = FG* + " .P2": VTAB 21 s PRINT ; PRINT D* n BSAVE'F 
G* " ( A1 6384 , L8 1 92" i GOTO 158 



REM *#***« ***** ****#**##■■» 

REM WW ECRITURE OE FICHIER ft** 
REM fl*******n*«« ******* 

PRINT f VTAB 22: HTA8 9; INPUT "TITRE DU FICHIER ' 
;F*i IF F$ = " " THEN 150 
IF F* - •?• THEN f>* = F* ; 

GOTO 160 

IF ASC (F*) < 65 OR ASC <F*> > 90 THEN I486 
UTAB 22: PRINT : VTAB 22; PRINT D* u OPEN*f*[ PRINT 
*"WRITE H F*: PRINT Ns FOR I = 1 TO N: PRINT Z<I>! PRI 
NT TE*<3); PRINT C<I>; NEXT : PRINT TI*< 1 > : PRINT TI 
*<2): PRINT D*"CLOSE"F*i GOTO 158 

REM «*#»####*****♦« »«**•******«*«« 
REM «** LECTURE D'l*f FICHIER ##• 
REM «**#«*#****«***•**•********#»# 

PRINT s VTAB 22s HTAB 9; INPUT 'FICHIER A LIRE ? " 
?F*: IF F* = "" THEN 150 
IF RIGHT* <Ft,l> = "H" THEN F = H 
IF F* = THEN R* = F* i 
GOTO 160 

IF ASC <F*) < 65 OR ASC CP*) > 98 THEN 1518 

ONERR GOTO 2840 

UTAB 22s PRINT D**VEkirV"Ft 

IF F < > H THEN 1590 

VTAB 22: PRINT ; VTAB 22: PRINT D*"OPEN'F*j PRINT D 
t'READ'F*; INPUT Nt FOR I = 1 TO N: INPUT Z < 1 > i INPli 



*, Appel de la routine da 
transfer" [$6000 ou 

24576}, 



*Ona prevu un Control* 
i pot»r Imprlmer [quond 
la page graphique est offi- 
cii**). 

ATTENTION I A PRpPOS 
DE L iAAPRIWA NI fc UStZLE 

TEXTE Q£ LA PA GEjj^ 



f pnsrmeJ d'oblenir 
catalogue de la 
u'isquafUv 



r le 



4, En m&morisQnf fo dia- 
g/dmmQ, il act facile, 
enmite de le recuporer, 
puis de l ednor & partir 
d'un autre programme. 



Ce fichier na pourTQ 
pas elre lu par HISTQ- 
GRAMME {Tremplln Micro 
n 3 l ), mate de-s adaptations 
risaiont passable*. 



^ Si c'esr un fichier H 
w (HI5TO.-,). o-i le lit 
outremenl. 



4" Ce fichier extftle-t-il ? 



^ Lecture d'un tlchler de 



GUY-HACHtTTE 



lecture ct'un flthi*r d* ^ 
donneus provenont du 
programme HISTOGRAWrl*. 



Elimination dc» donnee* 
supplemefilakes (plus 
de 10} 



Snitis simple. *v<- ^ 

1ant les &n-eur». 
C»Hn routine perm*! bvh' 
rf* completer, ou de medi' 
her les donnem *xl«oni«a. 
It suHil da roper I* numiro 
de li(jn&, pu« de renlrer I* 
lexis, el Id volevf , 



Lecture, <krltur» 
rind ideal ion du Hire 
du sous-litre. 



et 



1638 
I 



REM •«<•*»»**•+**•«*•••**********■ 

■ j IF I > 9 THEN V» 



T TE*(1): INPUT Cfl)i NEXT I INPUT TI*U)I INPUT TI* 

<2>t PRINT D*" CLOSE 'F» r GOTO 1408 
1599 VTAB 22: PRINT i <JTAB 22: PRINT D*"0PEN"F* : PRINT D 

*"READ"F*: INPUT N: FOR I = I TO N; INPUT ZU1: NEXT 
s INPUT TI*<1>: INPUT TI*<2): PRINT 0*"CLOSE"FS 
1 IF N < 11 THEN 1438 

1410 PP = 1: FOR I = 2 TO Nt IF ZU) < 2(PPl tHEN PP = 1 
1420 NEXT I» FOR I = PP TO N - 1 :Z<I> = Z<I * 1 ' :C<I> - 
C(l + n :TE*<I> = TE4C1 + lit NEXT :N - N - 1 : IF N 
> 18 THEN 1610 
IF TE* ( I ) < > tH THEN 150 

VTAB 21 i PRINT i CALL - 958: PRINT 'COMPLETER LES 
DGNNEES <0/N) ? * } : GET R* ; IF R* < ) "0* THEN 159 
1650 ; 

1668 REM •'♦********#»*«#»«*********•* 
1678 REM •** 
1480 
1698 ; 
1788 HOME 

1710 FOR I = 1 TO NsV* - 
1720 MTAB I * 3t PRINT U*fli 

1738 PRINT TAB( 4);TE*U); TAB( 26 - LEN < STR* <Z<I)> 
)> f Z<I>: NEXT 

1748 UTAB 10: HTAB 1: INPUT "LI ONE A CORRIBER <8 POUR FI 

N) '»LI*» IF LI* = "0" THEN 110 
1750 LI = UAL <LI*>t IF LI < 1 OR LI > 12 THEN 1748 

1760 L* = TE*<Ll)i IF L* = THEN L* - * ' 

1778 VTAB 20i HTAB li PRINT L*ji HTAB 1: INPUT u *}L*f IF 

L* = THEN 1790 
1788 TE*(LI) -> LEFT* <L*,12> 

1798 VTAB 28 i HTAB Is CALL - 958? PRINT TE*<L!)i TA8t 1 
5> |ZCLI > f t HTAB 15: INPUT "jL*l IF L* = THEN 186 


1880 FOR I - 1 TO LEN <L*>! IF ASC ( MID* at,I,l)> < 

48 OR ASC < WW <L*,I,1)> > 37 THEN 1790 
1810 NEXT I 
1828 2CLI1 = UAL <L*) 
1838 IF NS ( 18 THEN 1850 

1848 VTAB 21 i PRINT *LE OIAGRAMME N'ACCEPERA QUE LES 

D1X MEILLEURES DONNEES* 
1858 IF N < 12 AND LI > N THEN N = N ♦ 1 
I960 GOTO 1718 
1878 : 

REM #»»«t*f**»is**»*******» ******** 
REM «*» LECTURE DES TITRES «•* 
REM »**♦*•«*»»*•*•*»•**»*•***•••** 



I88S 
1890 
1980 
1918 
1928 



HOME :1 = 8 



1938 I = I ♦ IsT* ■ TI»< I > ? IF T* - "" THEN T* 



1940 PRINT i VTAB 5*2; PRINT T*j: HTAB 1: INPUT ;Tt 

• IF T$ = "" THEN 1968 
!950 TI*<I) - LEFT* <T* t 48) (Suite pa?* 56) 



TREMPLIN MICRO 



1978 

iwi i 

2888 

2818 

2828 

2838 i 

2848 

2858 



2868 L 
2878 



FOR J = I TO 2s VTAB 5+1*2; HTAB li CALL - 868 
t PRINT TI*<t): NEXT 
IF I < 2 THEN 1*38 
GOTO 118 

REM •♦♦*••«•*«***«**** **#***#*###» 
REM +•« TRAlTENENT D'ERREURS •«» 
REM »•#**#******»******#**#»» ***** 

CALL 24493 :ER = REEK <222) 

IF ER = 6 THEN PRINT WQPEN'F*: PRINT D*" CLOSE "F* 
s PRINT D*" DELETE" Ft: i/FAB 21 e PRINT : PRINT "FICHtE 
R INEXISTANT" i FOR I = 1 TO 1588; NEXT t POKE 216,8s 
GOTO 1518 

= PEEK <216> + PEEK <219) # 256 
VTAB 22; HTAB 1: CALL - 958: PRINT "ERREUR NUMERO 



■ • ■ 

* I 



PRINT * LIGNE 



288B 
2698 



2168 
2 1 1 



WERSE : PRINT ER; : NORMAL 
I W ERSE 8 PRINT Li NORMAL 
STOP 

DATA LIRE UN FICHIER.SAISIR DES DONNEES, MODIFIER L 
ES TITRES , TRACER LE GRAPHI QUE f CHANGER DE MODE ,MEMQRI 
SER LE GRAPHI QUE r MEMOR I SER LES DONNEES, IMPRIMER LE G 
RAPH I QU E , MOD I F I E R LA ROTATION, FIN DE TRAVAIL 
TEXT i HOME s END 
POKE 51,8! GOTO 118 



In ntpririirm it Hlrt diupmnM (Wrwtt koKmy ft w programme it N J, Mi luwy II (CimHm Conpvtinf, 



^ En ProDOS, 1 1 un« com 
' mande VERIFY n'qbov 
lit po», on rsHoove le UUe 
du fichi«r Ou calaloguo.. 
d'ou la fidce&silA do 
leffacor. 



4* Li{jnes du menu. 



±Vr> GOTO 2110 po.-mol 
do r*cup«ror le DOS et 
les donnfeeii- 



IMPRIMANTES ET GRAPHISME 



q UAND on poss&de une interface autori*ant la copie des page? graph iques, 
il est facile d'ufiliser des programmes Ms que HfSTQGRAMME (n°l} ou 
DtAGRAMME* En g£n£ral, JlnstrucMoa-cfi tfent en une ou deux letfres. 
II 6toit molns difficile, ovec ronctenne imprimante APPLE DMP (carte por allele 
dutiftier, dam un programme Basic la rouHrte en langage machine qui etaif 
fournie par Apple, 

Ou lei chose* se compliquent f c'est avee V Apple He et son imprimante Image 
Writer, une bonne machine, raplde et performance, mai* foncttonnam avec une 
carle $4ri#. Ell* dispose mem© de 5a memoire-iampon, tr&s *ufflsante pour de 
la copi* d'&rran en mod* TEXTet pour le lisfcjge. 

En mode graphique, e'esf un* autre hlstoire, nofamment avec Pro DOS (encore 
mal eannu, & cause du manque de documentation en Irantais}, 
Un coiweil : memorisez choque page graphique par un 
BSAVSPAGE* A$20SS i L8I92 ou A$4&(fQ, L8!92 t iuivant le 
cas, puis servex-vous de I'utfllfolr* Apple (DISQUETTE TOOL- 
KIT) qui occompagnait vatre imprlmanfe. 
Le programmeur amateur qui, le premier, nous enverra une 
routine *n assembletir, fonctionnanf facllemenr sous DOS 3.3 
et sous ProDOS, avec Image Writer ou DMP, aura bien m£rlt£ 
de too* les Apple*mordus de France et de Navarre I kestor. 




GUV -HACHETTI 



DIA.CARAC 



SI vous possedez ('excellent utilitoire 
APPLESOFT TOOL KIT. rien ne vous oblige a 
taper DIA.CARAC. Los fontes de TOOL KIT 
sont parfaitemenl compatibles avec DIA- 
GRAMME, moi$ leurs minuscules ne sont 
pas accentuees. Autre fonte uttllsable : 
FAIRE.F1 de Tr&mptin Micron*}. 
Lorsqi'e s/ous aurez termini la {longue) sai- 
sie de ces 768 octets, sauvez votre fonle 
par un : 

BSAVE DIA.CARAC. A$610fl, LS400 



FOMTE CflR'HC CCLflUTER PRfltlCHTS) 



1 2 3 4 5 6 7 8 9 B I - 

flZERTVUIOP | * 
azertyuiopl* 

QSDFBHJKLt1%£ 
dfghjklnCi' 



q s 



>11XCUBH?./ + 
< u x c v b n 



61 ee- 

6S1B- 
6118- 
63 20- 
4128- 
6138- 
6138- 

6148- 

4iM- 

6360- 

6170- 
£ 178- 
618B- 
6188- 
6170- 
619B- 
61A8- 
61A8- 

4JD5- 

dice- 

*JD0- 
6 IDS- 
61E8- 
41EB- 
^ 1 FB- 
6iFB- 



66 

38 
36 

?e 
ee 

42 
0C 
18 
3S 
BE 
3d 

ee 
ee 

68 
IE 
BC 
IE 
IE 
38 
3F 
IC 
3F 
1E 
IE 
80 

n 

IB 
If 
04 

3C 



88 

38 
36 
2C 
IE 
27 
16 
18 
IC 
IC 

;c 

19 

ee 

88 
68 

7B 

33 
8E 
33 
33 
3C 
83 
OA 
33 
33 
33 
18 
IB 
18 

ee 

ac 

66 



ee 88 

36 38 
24 12 
BC IF 
88 IE 

12 es 

02 84 
18 38 
0E BE 
36 33 
77 IC 
KB 7E 
BB BB 
BB 7E 
BB BB 
38 IC 
3B 3F 
0F BC 



30 
36 



LB 
IC 



36 33 
B3 IF 
B3 IF 
19 3C 
33 IE 
33 3E 

ia #e 

18 B9 
8C BE 
7E BB 
LB 33 
62 38 



00 
39 
00 
06 

26 
2* 

00 

BE 
38 
34 
7E 
18 
7E 
18 
BE 
37 
0C 
06 
30 
3F 
38 
33 
BC 
33 
3B 
18 
38 

ec 

7E 
13 



80 

36 

B« 

65 

IE 

72 

12 

00 

IC 

IC 

B0 

IB 

18 

0B 

IB 

06 

33 

ac 

83 

33 

30 

33 

33 

BQ 

33 

18 

38 

18 

is 

B8 

BC 

IB 



B6 BB 

08 00 

BB BB 
BA 80 
83 B6 
21 BB 
2C Bi 
BO 00 
38 BB 
BE BB 
BB 00 
IB 90 



II 



89 
00 8ft 
00 B8 

&e bb 

IE 88 
IE 0B 
3F BB 
IE 00 

IE 80 
IE «8 
BC B0 
IE B0 
6C BB 
80 ft a 
18 BB 
18 BB 
BB BB 
04 80 

is n 



6288- 


ec 


?B BE 


Bd 


BE 


B7 


BE 


ee 


6388- 


18 


18 


88 


18 


86 


80 


80 


88 


6288- 


3E 


33 


33 


3F 


33 


33 


33 


e e 


63BB- 


B8 


B0 


3E 


38 


3E 


33 


3E 


80 


6216- 


IF 


33 


33 


IF 


33 


33 


3F 


BB 


6318- 


83 


83 


IF 


33 


33 


33 


IF 


88 


6218- 


IE 


33 


83 


83 


83 


33 


3E 


00 


6318- 


88 


0B 


IE 


33 


83 


33 


IE 80 


6228- 


0F 


18 


33 


33 


33 


33 


3F 


0B 


6328- 


38 


38 


3E 


33 


33 


33 


3E 


BB 


6228- 


IF 


33 


03 


IF 


B3 


33 


IF 


08 


6328- 


BB 


06 


IE 


33 


3F 


03 


IE 


00 


6238- 


IF 


33 


83 


IF 


B3 


83 


83 


08 


6338- 


IC 


36 


06 


IF 


06 


86 


06 


00 

IE 


6338- 


IF 


33 


83 


38 


33 


33 


IF 


80 


6338- 


B8 


BB 


3E 


33 


33 


3E 


30 


6Z4B- 


33 


33 


33 


3F 


33 


33 


33 


00 


6348- 


83 


03 


IF 


33 


33 


33 


33 


00 


6248- 




ac 


BC 


BC 


BC 


AC 


3F 


88 


634&- 


BC 


88 


0C 


BC 


BC 


BC 


ec 


88 


6738- 


3B 


38 


30 


3B 


33 


33 


3E 


B8 


6350- 


38 


88 


38 


30 


38 


38 


33 


IE 


625B- 


33 


IB 


BF 


07 


0F 


16 


33 


08 


6358- 


83 


83 


33 


IB 


BF 


18 


33 


UH 


626B- 


03 


93 


B3 


03 


03 


03 


3F 


8B 


6368- 


80 


ac 


8C 


ac 


BC 


BC 


BC 


08 


6268- 


33 


3F 


33 


33 


33 


33 


33 


BB 


6368- 


06 


08 


33 


3F 


28 


23 


23 


80 
06 


6278- 


33 


33 


37 


3B 


33 


33 


33 


BB 


6378- 


80 


00 


IF 


33 


33 


33 


33 


6278- 


IE 


33 


33 


33 


33 


33 


IE 


60 


6378- 


f0 


00 


IE 


33 


33 


33 


IE 


80 


6280- 


IF 


33 


33 


IF 


B3 


83 


03 


80 


6388- 


80 


00 


IF 


33 


33 


IF 


83 


03 




IE 


33 


33 


37 


38 


33 


2E 


B0 


633B- 


80 


08 


3E 


33 


33 


3£ 


38 


38 


62?0- 


IF 


33 33 


IF 


BF 


18 


33 


B0 


639B- 


60 


60 


IF 


33 


03 


B3 


63 


B0 


6298- 


IE 


33 83 


IE 


36 


33 


IE 


eS 


63?8- 


88 


80 


3E 


03 


IE 


38 


l¥ 


66 


62A0- 


3f 


BC 0C 


BC 


BC 


OC 


8C 


00 


63AB- 


86 


66 


IF 


86 


06 


36 


IC 


BB 


6268- 


33 


33 


33 


33 


33 


33 


IE 


88 


43A8- 


8B 


B8 


33 


33 


33 


33 


3E 


88 


6288- 


33 


33 33 


33 


33 


IE 


8C 


08 


6368- 


88 


68 


33 


33 


33 


IE 


BC 


60 


62BB- 


33 


33 


33 


33 


33 


3F 


33 


86 


6386- 


BB 


86 


63 


63 


68 


6B 


3E 


80 


62CB- 


33 


33 


IE 


ec 


IE 


33 


33 


08 


63C8- 


BB 


88 


33 


IE 


tc 


IE 


33 08 


62CB- 


33 


33 


33 


IE 


BC 


BC 


BC 


08 


63CB- 


80 


08 


33 


33 


33 


3F 


38 


IE 


6200- 


3F 


38 


18 


BC 


B6 


83 


3F 


08 


63DB- 


68 


60 


3F 


JQ 


BC 


86 


3F 


68 


62D8- 


IE 


IE 


06 


u 


B6 


IE 


3E 


80 


6308- 


98 


BC 


9E 


83 


BF 


83 


9E 


88 


6?fc«- 


80 


BB 


IE 


33 


B3 


33 


IE 


0C 


63E8- 


86 


BC 


33 


33 


33 


33 


3C 


08 


62E8- 


78 


78 


60 


60 


6B 


78 


78 


B0 


63E8- 


86 


BC 


IE 


13 


3f 


63 


IE 


88 


62F0- 


§6 


86 


06 


06 


B6 


06 


06 


06 


63F0- 


66 


68 


60 


68 


66 


68 


60 


68 


42F8- 


BB 


8B 


46 


BB 


08 


80 


7F 


Bft 


63F8- 


08 


8ft 


60 


BB 


88 


88 


BB 


00 



COMPATTBEJTE 
avec ProDOS 



Nous vous recomrnandons le sy»5*me ProDOS. booucoup plus- 
roplde que I© DOS 3.3, el plus ouven *vt I'avertir. Mefi#jt-VOUS 
loulefois des premieres versions fd'ohglne am*r koine), 
capites <ou piraltes) depois la nalisance de PioDOS, el poa 
forc*ment exempt** de bogues, OHrez-vous piul6t la version la plus recent* avec garanHe 
d'onqme Elle vous coOtera quelques centaines de francs. moH vous evilero Wen des debolres. 
La pfuporl des programmes du n a 2 de TrempHn Micro foncttonnent *ous ProDOS, oprfrs to 
modlflcattons insignlfSanles : nomi das tichiers, por exemple. Si vous iravaillex avec (ou sous) 
ProDOS, avec on programme en 40 colonnes faisant qppel au CATALOG, n'oubllez pas de 
transformer Ja command© CATALOG en CAT. 



TREMPtlN MICRO 



* « 

» TRSMPLIN HICRO t 

* GUY-HACHETTE 05 * 

* NUHERO ? * 

* * 
***#**«*»«*#******#« 

*A 0G4 MENU 
*A 017 MENU. RUN 
*B 002 MENU. 
•B 002 MENUASC 
*B 002 MENUCOMP.C 

T BflS JEU 

T 0D5 JEU. 
*A 009 LISTBO.LMB 
«B 002 LISTBO.LMC 
*A 012 F1CHIER. DIRECT 
*A 020 0INDECHEX 
*B 008 NBR2-23 
#B 002 DMP40 
#A 002 LI STAGE . FAITLI ST 
*A 0Q6 LI STAGE. DEMO 
«A 018 LI STAGE 

T 002 LIST 
*A Oil HOMME. LIBRE 
*A Oil HOMME. L10RE.2C 
*B 002 PA1RIMP 
*A OOd PAIR1MPA1R 
«B 002 PA1R.LM* 
*A 008 PA1R1MPAIR* 
*A 002 CARACTERES.S0UR1S 
•A 005 D1SSE0UER 
#A 004 ONERR 
*A 007 TRUCS 
«A 004 LI STAGE . CONTRQLE 
*A 026 DIA6RAMME 
#B 002 OIA.LM 
«B 003 DIA.CARAC 
#T 002 DIA.Ol 
#B 002 TRANS80 , LM 
*A OOB TRANSBO. BASIC 
«A 005 TRANSBO . LM . DEMO 



Vos menus a la carte (page 5) 



Pourobtenlr lo dtequette contenant 
le& programmes de TKMPUN 
M tCRO n 3 2(E>OS 3.3, APPLE tf* el 
Ik), utii isez lo bulletin tie 
commande de la page 62. 
Ufte version Pf oOOS es1 
disponible, mais necessife que I on 
dispose du Basic-Syslem ProOOS, 



MENU 

BSAVE MENU, 
AS2000, LS54 
DU 

BSAVE MEN. 
A8192. LB4 



MENUASa 

BSAVE MENU ASCI, 
A$2054 t L$7E 
ou 

A8276. LI 26 



Vprjfiaz bien choque 
ttgno Gvanl do passer 
6 la ligne svlvunru, 
N'aubltei pan qua 
vou» devex d'abord 
taper vn CALL- 151 
I Idea page 43). 



2009- 


A2 




A? 


20 


20 


F0 


FB 


E3 


2008- 


E0 


28 


D0 


Fo 


60 


A? 


— — 

20 


20 


201 0- 


F0 


FB 


A 2 




86 


24 


A9 


20 


2018- 


20 


F0 


FE 


A5 


25 


C? 


16 
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CORRIGEZ VOTRE NUMERO 1 ! 



FICHEN & 1 (la poge zero de I Apple M#) 

L'adresse 214 ($D6) r»'es1 pas dispansble... el si Ton lope un POKE 
214,255, on s'expose 6 certains inconv^nients. Usez r sur ce su|ef, 
!a rubrique "Deux trues pour voir© Apple"" de la page 40. 

PAGE 27 (Transfert d'6crcm& en memoire oux ilia ire). 

La lfgn# 10820, en bas de page, est erronde. II fout lire POKE 66.0 

et non POKE6* r 35, 



Apple IL1I+ et compatibles ^ ous II ™ nc J M ? tr ™ 1°***™™* 

des diflicuhes pour fasre tour- 
ner ceftaln* pr&gfommes de Tremplio Micro sur le& machines de lo pre* 
mt&re el de la seconde generation, et plus enccwe sur des machines dlles 
compofibl^, C'est aga^arit, mals plein denseignemefits. Vol rechorchcii 
vous pennetrronV de mleux comprendre lo Bask en general, el ('Apple- 
soft en partteulier Ne vous toiSMX fomais dicourager et faites prof iter 
les outres de vos trues et astuces ! nestor. 
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Vous avez ecrit 
aTREMPLIN MICRO 



m 



• Don* fe r*mpioc*m#nt de DISK VQIUME, en 
mode dlr&ct. par mon idantitB, j'obficn* vt\ rnes- 
i off* "ILLEGAL QUANTITE ERROR*. PourqtHM t 

Plusieurs r^ponses possibles, mais deux 
causes principalis : 

1, Lo variable AJ (v-otre IdentHe) ne com- 
port© pas 11 slgnes, espoces campris (si 
votre nom est frop court, tapez x espa-tes), 

2, Vous avez effectual plusleurs tentatives wi 
omis de remettre la vorioble M d z&ro. 
Respectes exacteroent la procedure indi- 
qu£e, en ulilisant bien un DOS 3.3 d'origine, 
sans fa ire appel' a des caracteres ill§gaux 
(CTRL-, par exemple), — el Tout If □ bien. 
Si vous d&slrez supprlmef le V de VOLUME, 
tapez AS = A$+CHR${32), puis transformez 
ie 46900 d* la boucle en 45999. 

■ le iuis abonn* d h r ovaj# POM S et /# c r e»m que 
TREMPUN MICRO noggruve encore »*• difficult** 
dediftwton. Ov'on pent&z-vout f. 

Sans POM'S let aussl sans la presse omeri- 
caine). les amaJeur* frontats ele program- 
motion en seraient encore oux bdlbuHe- 
merits, notammont en assemblouf ... at il n'y 
auraitpasde TREMPUN MICRO. 
POM'S est un magazine indispensable, que 
|e retornniande b lous ceux qui d*siren1 
rtallement oiler plus lain. Ce n'esl pos un 
concurrent, mats un confrere auquef je lire 
mon chapeau, gh. 

• Jot 4?4 pnthovstasme por votre revuo, et je t ot 
hit ocheter 6 mes omit. flwo d'otor dfr* didocfi- 
quB et de I'Mre bien 

Pourrait'Qfi avoir vn /our la version cowmen fee ae 
FAIRE.M ? 

Tfis bien de fair* de la publicity (gratuite) pour Jes 
flwe/nb/evrj, mais W faudrait ou»i menf tanner /ei 
nd6boggeurspt, te/femenf efficace* pour mieux 
comprendre... 

Souhoitons que plusieurs dizaines de milliers 
de lecfeurs manifested oufanf d'enthou- 



m 
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siasme que vtws. Posseder un ordinaleur 
personnel est une chose, mate en tirer la 
quintessence en est une autre. 
La premiere partie de FAIRE.LM est une rou- 
tine am£rtcaine permetlanf, comme vous 
avez pu le canstoter , d'*crire facllement en 
page graphique, et cela & parfir de fontes 
qua la plupart des programmers poss&dent 
dfyb {dons APPLESOFT TOOLKIT notam- 
ment), A quond un «debuggeur» fran^ais.,, 
comma PROCODE dons le domaino des 
assembleurs, par exemple ? Qu'il arrive, et 
il auro sa place dtirta TREMPL1N MICRO, e'est 
promts, 

• fa topi fe programme SPECIAL ttONJQUH ett i/ 
ne fonctionrtQ poM $vr mon APPLE Ik, (tou* Pro- 
DOS}, Je ne parvisns pas dcrvorrtoge A dcrire mon 
nam sur h disquetto que j'Qi faj/fafarfe. 

Celo ne nous surprend pas, Les deux pro- 
grammes dtta font appel h des routines et b 
des adre$se$ qui ne concerneni que le DOS 
3.3, Par centre, la pluport des oulres pro- 
grammes son I focllement octopfables. 

II foul d'obord eliminer le OS = CHR$(13) + 
CHR$(4) du DOS 3.3 et le remplacer per D$ - 
CHRS{4), Un PRINT tiendra Eventual lament 
lieu de CHR$(13f, <ou un PRINT CHR$(13), 
maia Isol^J. 

Ensuite, tevoir les noms des fichiers, el 
noter que llmprimante s^rie se revele par- 
fob cbotouilleuse quand ProOOS est la. 
Oons les routines en langage machine, ne 
pas uliliser des adresses com me 53EA et 
essay er de remplocor les six octets par EA 
EA EA, 

Nous avons rossembl*. sur une disquelte, 
las 4/5e des programmes de TREMPLIN 
MICRO n°1 , et Sis sont mainienanf ulilisobles 
sous ProDOS... h condition de poss6<ter ce 
sysieme d exploitalion, car il ne s'ogil que 
d'une disquetie esclave. 



SUITE DU COURRfER (PAGE AO) 
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TftEMPUN MICRO 



VOUS AVEZ ECRIT A TREMPLFN MICRO 



(suite) 



* J'itcts abonne d POM'S, mats j'ai abandonn6 
pour cause de comprenette difficile. Avec vous, 
m'attendah d mieux, peut-etre a cause de mes 
experiences ovec vos revues d'inltiation quk mats 
croi$4s (c'wt one vieiile histoire ff. Hetas ! pour 
moi, id ou ailleurs, I'as&embfour, c'est de 
I'hebreu,.. Pourtont, /e vols pour$uivre /'expe- 
rience pendant quelques nt/nteros.... 6 cot/se den 
mots crosses. 

Dans d&s revues comme POM'S ou comma 
TftEMPUN MICRO, les program mes ne 
s'adressenf pas tous h la totality des lectri- 
ces et lecteurs, Si vans reprenez voire collec- 
tion rie POM'S dnns un nn, vou* vetre? les 
chores autrement.,, el vaus commanderez 
les numeros qui voui manquenf jnon, je ne 
suls pad osaocio 6 cux, ...et its ne me con- 
naissent pas, mois je l©5 aime been). 
On ne peui com prendre le lanyage machine 
qu*en ie prasiquant, pas b pas. Je suls sOr 
quo vous oiler vous piquor ou jeu... et je ne 
de&espere pas de vous d&ouvrir un jour 
pormi no* out eurs de programme* ! 

* Comment sauver puis rechorger un programme 
en longage machine f 

Poor 

SOit-il 

CALL-J51, pufs enfoncoz lo tauehe RETURN. 
L'astirisque va apparoTtr*. Voire momteur 
attend votre programme. Recopiez alors, 
sans une seule erreur, les instructions qui 
vou* mt6re*sent. 
Un dritoM : si Ton vous propose 
0300-20 58 FC 60. ligne qui se tonfente 
def facer l'6cran par un HOME, vous devrez 
laper : 

* 300 : 20 5B FC 60, puis enf oncer la touch© 
RETURN. 

5i vous aviez mis un tiret a la place des deux 
pofnls, $a n'aurait pas marcbe. Comment 
sauver celle mini-routine ? 

Elle commence a I'adres&e $300 HEXA (qui 
correspond a 768 en DECIMAL] et elle com- 
porie A octets (4 fois 2 earacteres) . Apres le 
RETURN, vous avez vu apparattre un autre 
asterisque, Armez-vous de courage et 
taper : 

• flSAVE HOME, A$m 14 ... RETURN. 

Ca ronronne e6l4 disquette. £a y est : HOME 
(ou un autre tSlre) est *auv£. 
UN RESET (ou CTRL-C, RETURN) vous ramine 
au BASIC Noter que vous ouriez pu faire 
cela tout de suite, et sauver votre pro- 



TM 



aouver un programme, aussl court 
encore laulil Tcvoir 4eril. Tapez 



gramme apr&s coup. Etetgne* I'Apple, Ralln- 

mez. Foltes un LIST pour afficher votre 

menu, puis tape? : 

BR UN HOME .... RETURN 

£a ronronne de nouveau el, 6 miracle -'. 

I'<kran se vide. Maintenont. pour v\d& 

I'dcfan, il vous sufrlra de taper CALL 768 {y 

compris dans te cadre d J un programme en 

BASIC). 

Bien sur, ce n'esf qu'un exemple bSle el 
in^khant e» je vous vois venir : un HOME 
feroii plus rapidement la m4me those. 
O'accord, mate cent autre* insl ructions pour 
raient suivre celle-ci ... sans frals 
supplement aires I 



• /. Par quo* remptacer POMME OUVERTE ef 
POMME FERMEE sur un APPLE il ? 

• 4 PEEK {JQ5J + PEEK (106} 1 256 ... me reppnd 
pur SYNTAX ERROR. Pourquol ? 



IM 



L Par vos maneKes de jeu. 
2. Fapez PRINT PEEK {1 05} + PEEK (106) *" 256 
(qui fwrmet de savoir ou se termine un prc- 
gramme) el vous ourez la reponse san* 
SYNTAX ERROR. 



• Serlez-votss pr&t* A (aire, don* vo* colannes r un? 
optimisation par routines Assembieum ou astvees 
Apple lie de petits sou$-progrommes utititoirei 
^cri^j u nlquem en t en Applesoft ? 



i Assuriment, Seriez-vous I'auteur de tela 
sous-pfogrammea ? Trempl'm Micro attend 
voire dbqutrffe I 



i 



■ Cerfain$ programmes ne foncfionnent pas iur 
/'App/tf ff-f . malgrd la presence dune carte 89 
co/onnes. 

ItMI ^ ou& effectkefnent pu rencantrer quel- 
ques dif*kuH*s ovec voire Apple U+, mah 
il doit etre passible d'adapier tous les pro' 
grammes a cetle machine, A revofr 
Pomme ouverSe et Pomme fermee, atnsi que 
d'^ventuels deplocemenli avec fes rliches 
des Apple He et Ik. Quant a la carte 80 
cotonnes, tl est indispensable de respecter 
les indications laurnles par so documenfo- 
lion {souvenl, II faut notamment remplocer 
I'instruction HOME par PRINT CHR$(12} r et 
supprimer le mode INVERSE]. 



L&ntyM Tout nouv «cmn , milhit fHUl prtclwr il i>ou» pour-oni 
au rwn cHi r volrt idwitftit. *f f* oon dt votro vlll*. Mora. 
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SONDAGE 2 



Les. ronseignemants concornoftl votre idenfite et 
voire odresse ne spront *n aucun cos communiques 
6 une sooele etrangere aux EDITIONS JIBENA, 



QUI ETES-VOUS ? 



Norn* Pr^nom * 

Ann£e de naissance Sexe Profession 

Adresse* ... 

Code postal 1 I I 1 I 1 Vllle 



VOTRE MATERIEL 



□ Apple ri □ Applo 11 + □ Apple He □ Apple Uc □ Apple III □ Macintosh □ Lisa 
Autre* : 



VOS OUTILS 



Citez les quatre logictels que vou; utilise* le plus souvent par ordr* tie preference. 

I. 3. 



2. 



4. 



ANCIENNETE 



Depuis combren de temps possldez-vous un ordinateur personnel ? 
Concevez-vous des programmes ? 



QUI 




NON 





Langago 



BASIC 



PASCAL 



LOCO 



AUTRE 



PrscisBZ : 



Pro-am met-vaua on LANGAGE MACHINE ? OUi 



Utilisez-vous un as^emblaur ? QUI 



NON sl OUI lequel ? 



INTENTIONS D'ACHAT 



Quo souhaitoj-vous acquuirir, au cours das 6 proehoins mo is, en mafiere d'inforinatique personnell© 9 



RUBRIQUES PREFEREES 



Indiquez-moi le num&ro des pages qui vous auront sembl£ les plus jntdn"essantes dans ce riurtt^fO 2 



Quell** sent VOS SUGGESTIONS 



(1 IREMPUN MICRO 



tremplin <) 
micro - 



MICROSONDAGES 



Merci de bien vouloir repondr© h ces questions ; 



1 . Etes-vous pour ou conlre les petltes annonces dans 
TREMPLIN MICRO (Ventes et Achats) ? 

2. A votreavis, devons-nous ou non poursuivre la diffusion 
de disquottes DEMO., comma nous I© faisons, pour GRI- 
BOUILLE, dans le present numero ? 

3. Transformerez-vous votre Apple lie avee le Kit prevu 
pour !e rendre compatible lie ? 

4. Etes-vaus interesse par des essais des nouveaux utilitai 
res tournant sur Apple ? 



POUR 



CONTRE 



QUI 



SON 



Oil I 



SON 



0U I 



SON 



Bulletin de commande et d'abonnement 

Norn Prenom 
Adresse complete 

Code postal | 1 Vilte 



N'QO&ttZZ PAS Of COCrtfff LA VEFSfON QE LA WSQUfTTf i&0$ ou fn>QQ$) 



1 


Abonnement a 5 numeros (un an) : FRANCE 


150 F 


1 


DISQUETTE de TREMPLIN MICRO N°l 

{Povr APPtE II* mi H>.) DOS 3.3 □ ProDOS 


105 F 


T 


DISQUETTE de TREMPLIN MICRO N a 2 
(Pour APPLE It* mt Ite) DOS 3,3 □ ProDOS L 


105 F 


1 


NUMERO 1 DE TREMPLIN MICRO 


30 F 

(NET} 


1 


NUMERO 2 DE TREMPLIN MICRO 


30 F 

(NfT) 


1 


DISQUETTE DEMO DU TRAITEMENT DE TEXTE GRIBOUILLE ( 2 N 5 fT F j 



9ar*rk> uh*mmmnsinirf,t*s frais d'envoi (gratuit paur les a bonnes) + 10 F 

Total A payer F 



Merci de libeller voire r&gtement A tordre do TREMPLIN MICRO / Editions JIBENA 
MqJg de 1 r&gJemeni choisl : O Cheque D Mandat-I&tfre D Carte Bieue 



N° «i« vi>irip Carl* Qlnuv 




I III L 


111! 


Deri- d'+xptration I | 


F 
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Votre guide photo 



Attention les yeux : Chasseur d'lmages vient de paraTtre ! 
Des conseils d'achat, des trues pour reussir vos photos, 
des articles-pratiques pour decouvrir de nouvelles images, 
des idees pour Conner vos amis... e'est Chasseur d'lmages I 
Pour vivre ton jours plus fort en photo, 
Chasseur d'lmages, tous tes mo is, chez votre marchand de journau: 



■ 



